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MODULE RIGHTSMAN 
GUAGE, (8118832), 


RESSING _MODE OC EXTERNALS =GENERAL, nonexternal=general) 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

it THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND og Li 

't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SO Abn OR ANY OTHER 
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FACILITY: System Management Utility Program 
i ABSTRACT: 
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This program allows the system mgnager to maintain the rights 


data base. The data base is a single ISAM file which is used 


Replace all messages w 
those messages in a ASG f 


v03-003 LY0495 Larry Yetto 11-JUN-1984 13:01 
Correct noise error message being reported by ADD/ID/USER=* 


h calls to LIBSSIGNAL and place 
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' 
' 
' 
' 
0039 ! to record the names, encoding, and holders of all identifiers 
Bees in the system. 
0048 | ENVIRONMENT : 
0064 AUTHOR: Larry Yetto , CREATION DATE: 22-MAR-1984 
0046 i MODIFIED BY: 
0048 : v03-005 im. 0038 John R. Lawson 02-Jul-1984 15:26 
0049 1! DENTIFIER FOOBAR /VALUE: “tests, 53,15 0;K.. but 
0050 ADD/ IDENTIFIER FOOBAR /VALUE:UIC= '2 ] isn't 
6 v03-004 ght. 0008 John Rs Lawson, Jr. 14-Jun-1984 15:38 
' 
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: 8 p028 } } caused by improperly initialized flag. 

: 60 $080 1 i v03-002 LY0479 Larry Yetto 27-APR-1984 08:28 
3; 6 (66) 0061 1! Do not delete the user identifier during a mi command 
; ? Bae6 ! eyete pore are no longer any UAF records with 

° . S 

: ee 0064 } Base Level QAR #182 = Fix accvio in rename/ident 

: 66 0066 | i V03=001 LY0476 Larry Yetto 9=APR=1984 10:29 
a 067 1! Fix endless loop in SHOW/ID/USER=* 

; 68 0068 1! 

; oF 494 1} 

; 070 1 !-- 

‘Veer ¢ | 0071 #1 
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voe-000 1erSep-1986 8:31:18 LOAF sRclaien 
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' 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
UAF$ADD_GRP_ IDENT : NOVALUE , 
UAF SADD_ IDENT : NOVALUE , 
UAFSADD-IDENT_RECBUF , 
UAFSBUICD_HOLBER , 
VAFSEREATE RDB : NOVALUE , 
UAF SDISPLAY_IDENT : NOVALUE , 
UAFSDISPLAY. IDENT_RECBUF , 
UAF$DISPLAY RIGHTS : NOVALUE , 
UAFSDISPLAT™ RIGHTS RECBUF , 


VAFSGRANT IDENT : NOVALUE , 
: NOVALUE 
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AF : 

UAF SREMOVE_ IDENT : NOVALUE 
UAFSREMOVE =1DENT RECBUF , 

UAF SRENAME IDENT : NOVALUE 


UAF $REVOKE IDENT : NOVALUE ; 
SHOW_IBENT : ‘ 


99 0098 YAFSSHOw RIGHTS : NOVALUE 


NT 
UAF SWRITE- “RIGHTS ; 


EXTERNAL ROUT INE 
CLISPRESENT 
CLISGET “VALUE , 


PARSE“WILD_UIC , 
WILD_OSER | 


i INCLUDE FILES: 


' 
{ 
i 
LIBRARY 'SYSSLIBRARY:L 
LIB T 


B.L32 
RARY ‘SYSSLIBRARY: C 


I . 
PAMAC.L 32°; 


' 
Field, structure, and Macro definitions 


FIELD 
DESCR FIELOS = ! Define the fields for a DESCRIPTOR 
LENGTH f 
DTYPE 
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F AOMAC cpagnse) C3 = 


TH] = . (FAOMSG)<0,8>; 

TER] 7 (F AOMSG) + {; 

PTRCRABS$W_RSZJ, DISOSC SCOMMA (ZREMAINING) 
REM NING 


C$W_LENG 
FAODSCLDSCSA_POIN 
RAB . 


% 
SPUT (RAB = .RABP 
END %, 


Al 


| 
SCOMMAL) =, %, 
OUTPUT_NULL = 
BEGIN 
RABPTRCRABSW_RSZ) = 0; 
SPUT (RAB = TRABPTR); 
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LITERAL 
FALSE 


TRUE 
BYTE_LENGTH 
WORD _LENGTH 
LONGQORD_LENGTH 
external Literal 


CLIS_NEGATED, 
DISBOFLEN; 
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' 
External messages 


external routine 
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LIBSSIGNAL; 

external Literal 
UAF$_BADSPC, UAF$_GRANTERR, UAF$_GRANTMSG, 
UAF $~ 1 DOUTRNG UAFS“LSTERR, UAF$-LSTMSG1 
UAF $~NOGRPWILD, UAF $NOIDNAME UAF$~NOTIDFEMT 
UAF$-NOTUICFMT, UAF $-ROBADDERR, UAF $~RDBADDERRU, 
UAF $~RDBADDERRV, AF $~RDBADDMSG, UAF$~RDBADDMSGU, 
UAF $~RDBCREERR UAF $~RDBCREMSG, UAF $~RDBMDF YERR, 
UAF $RDBMDF YMSG, UAF $~RDBREMERR, UAF $~RDBREMMSG 


UAF $~RDBREMMSGU, UAF $~REVOKEERR, UAF $~REVOKEMSG, 
UAFS-RLSTMSG, UAF $~SHOWERR, UAF$~UICERR, 
UAF $~WLDNOTALWD; 


' 
External variables 


EXTERNAL 
DISBUF : VECTOR C,BYTE), ! Display buffer 


ere 
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3 246 0243 1 DISDSC : BLOCK (,BYTE] : 
> 245 8 44 1 FAODSC : BLOCK {; ByTEd, ! gen'l purpose fao string desc , 
: 246 45 FOUND_MATCH : LONG , ; 
3 267 0246 1 RP_WILD : LONG , : 
: 248 0247 1 MEM WILD : Le 3 
> 249 0 48 1 OUTRAB : $RAB_BECL ; 
: 250 0 469 1 RABPTR : REF BLOCK (, BYTE], |! RAB for output i 
3 51 50 1 RECBUF : SBBLOCK , 5 
: 2¢ 0251 1 RIGHTSLIST_MODIFIED : BYTE , : 
3 25 0 é 1 RDB_EXISTS : LONG , : 
: 254 0 1 RMSERR : LONG , 3 
3 55 8 2 1 STR_WILD : bows F 
: 256 7 TOKENDSC : $BBLOCK , ; 
; 257 9 56 TOKENLEN : WORD , ; 
; 258 57 1 TOKENPTR : LONG , : 
: $28 0258 1 UIC_FLAG : LONG ; 3 
3 60 0259 1 3 
; 261 0260 1 3 
3 $06 0261 1! 3 
; 26 0 6 1 ! Global storage - 
> 264 0265 1! 3 
3; 265 0264 1 GLOBAL : 
: 266 0265 1 RDB_HEADER_FLAG : BYTE , : 
; 267 0266 1 RDB-LIST_FCAG : BYTE , 3 
: 268 0267 1 ATTRIBUTES : LONG 3 
> 269 0268 1 OLDER : $881 0¢K(8] INITIAL ( REP 2 OF (0)) , ; 
; 270 0269 1 IDENT : $BBLOCKE4] INITIAL (0) ; : 
3; 271 0270 1 3 
; ete 0271 1! 5 
: 273 be ze 1 ! Module wide OWN storage 3 
3 276 0275 1! 3 
s ed 0274 1 OWN 5 
: 276 0275 1 SHOW_ID_FULL : BYTE , : 
> 277 0276 1 STATOS : LONG , : 
; 278 0277 1 3 
3; ay 0278 1 RLSTNAM : SNAM (), ! needed for the DLT option 3 
; 280 0279 1 3 
3: 281 P 0280 1 RLSTPRO : SXABPRO ( : 
: 38¢ P 0281 1 PRO = (RWD,RWD,RW) : 
; 8 bs 86 1 ), 3 
3 6284 Ose 1 $ 
; 285 P 0284 1 RLSTFAB : SFAB ( ! FAB for UAF Listing file : 
: 286 P 0285 1 FAC = PUT, 3 
3 387 Pp 9 86 1 RAT = CR : 
: 288 P 1 FNM = "RIGHTSLIST.LIS', : 
: 289 P 0288 1 SHR = NIL, : 
: 290 P 0289 1 ORG = SEQ, : 
: 291 P0290 1 RFM = VAR : 
: 4 P 0291 1 MRS = DISBUFLEN, : 
> 29 Pp 3 1 NAM = RLSTNAM, : 
: 29% P0293 1 XAB = RLSTPRO 3 
: 95 294 :~«(«1 ), F 
: $38 95 1 ; 
: 29 Pp 96 1 RLSTRAB : SRAB ( ! RAB for RIGHTLIST Listing file : 
: 298 P 0297 1 RAC = SEQ 

: 299 P 0298 1 RBF = DISBUF 

: 300 P 0299 1 FAB = RLSTFAB 
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' ss-32 
UAFSADD_GRP_IDENT = Add rights group identifie 14-Sep-19 UAF .SRCJRIGHTS 


v4 
MAN. 


i SIDE EFFECTS: 
Rights data base is modified 


LOCAL 
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4 9 1 XSBTTL ' UAFSADD_GRP_IDENT = Add rights group identifier ' 
4 ¢ GLOBAL ROUTINE UAFSADD_GRP_IDENT : NOVALUE = 
5 BEGIN 
Ele 
i] 
3 § FUNCTIONAL DESCRIPTION: 
0 8 : Add an identifier for the uic group if it doesn't alreody 
Hi R exist. Use the account name for the name of the identifier. 
+ 1 2! INPUTS: 
4 ! 
35 § ‘ none 
336 4 ! 
$36 2 } IMPLICIT INPUTS: 
$23 RECBUF must contain a valid UAF record 
3 1 9 ! OUTPUTS: 
342 0 ! 
343 1 ! None 
344 ¢ { 
345 ! IMPLICIT OUTPUTS: 
346 4 ! 
; 7 5 ! none 
8 6 ! 
349 7 ' ROUTINE VALUE: 
350 8 ‘ 
351 9 ' none 
352 0 ! 
3 ? 1 
336 § i 
356 4 \ 
357 5 
358 6 
; 9 7 
0 8 
; 1 9 
0 
4 
5 
6 
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BLANK : BYTE INITIAL (%C' ') , 
NAME_DESC : STATDESC, 
NAME-BUFF =: VECTOR C _KGBSS_NAME, BYTE J , 
63 RESULT_ID : $BBLOCK (4); 
65 RESULT_ID = 0; 
66 IDENT = 0 ; 
$3 
$95 i Get the identifier name from the UAF record account field. 
71 9 2 CHSCOPY ( UAFSS_ACCOUNT, RECBUFCUAF$T_ACCOUNT], XC’ ', 
7 0 GBSS"NAME, NAME BUFF ); 
a3 4 NAME_DESCCLENGTA) = MIN ( DAF $S_ACCOUNT, 
75 A (CHSFIND_CH (KGBSS_NAME, NAME_BUFF, %C' ') - NAME_BUFF) ) ; 
, 378 NAME_DESCCPOINTER] = NAME_BUFF ; 
78 76 ' 


— 


3:14 AX=-11 Bf 
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| 
5 79 77 ' Build the identifier from the UAF record and then wild card 
; HY 4 the member number | 
; 8 0 UAFSFIND_UIC () ; 
; 83 IDENT CUTCSV_MEMBER] = UICSK_WILD_MEMBER ; 
: 385 
3 86 be ! If the account field is blank then do not try to create 
; sf Hi ; an identifier. 
; 389 0 a9 IF CHSNEQ ( 1, BLANK, .NAME_DESCCLENGTH], .NAME_DESCCPOINTER], %C' ') 
RR AR eee | 
3 9 0390 ! The account is non blank so check if the ID name or 
: 7 8 4 value is already in use. 
; 395 0398 IF NOT ( SASCTOID ( NAME = NAME DESC ) OR 
; 396 0394 SIDTOASC ( ID = IDENT )) 
3 97 0395 N 
3 98 Deae BEGIN 
3; 399 039 ! 
; 400 0398 ! The identifier is not in use. : 
: rtd +244 } Perform the actual service to add the identifier 
: 40 P 0401 STATUS = SADD_IDENT ( NAME = NAME DESC, 
3 404 P 040 1D = .IDE 
: 405 P 040 ATTRIB = .ATTRIBUTES, 
; 406 0404 RESID = RESULT_ID ) ; 
; 407 0405 
; 408 0406 IF NOT .STATUS 
; 409 0407 THEN 
3 410 0408 4 BEGIN 
3 411 0409 4 IF .IDENTCUICSV_FORMAT] EQL UICS$K_UIC_FORMAT 
; aie 9410 4 THEN L 18881 GNAL (UAFS RDBADDERRU, 3, NAME_DESC, 
> 41 411 4 -IDENTCUICSV_GROOP], .IDENTCUICSV_MEMBERI, 
s 614 0618 4 . STATUS) | 
> 415 0413 4 ELSE LIBSSIGNAL(UAF$_RDBADDERRV, 2, NAME_DESC, 
; 16 0414 4 IDENT, .STATUS); | 
> 41 0415 4 END 
; 418 0616 3 ELSE 
> 619 0417 4 BEGIN 
3: 420 0418 4 RIGHTSLIST MODIFIED = TRUE ; 
: 421 0419 4 IF .RESULT-IDCUIC$V_FORMAT] EQL UIC$K_UIC_FORMAT 
: 6 ¢ o% 0 4 THEN LIBSSIGNALTUAF$_RDBADDMSGU, 3, NAME_DESC, 
4 421 & -RESULT_TDCUIC$V_ GROUPS 
i 426 Quge 4 - RESULT™IDCUI CSV"MEMBER4) | 
: 425 04 4 ELSE LIBSSIGNAL(UAFS_RDBADDMSG, 2, NAME_DESC, | 
> & $ 4 4 »RESULT_TD); | 
3 6 425 END ; 
3; 4 $ 4 $ END ; 
: 6 4 END ; ! End of UAFSADD_GRP_IDENT 
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NAME BUFF , RO 
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Rin BUFF «lane pPesces 

#0, OAF $¥ IND_u 

#1, BLANK, #32, NAME_DESC, @NAME_DESC+4 
3$ 

“(SP) 


ESC 
a. *SYSSASCTOID 
RO, 4$ 
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#6, gySSIDTOASC 
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NAME _DESC 

#4, SYSSADD_IDENT 
RO, STATUS 
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Woon 080 UAFSADD_GRP_IDENT = Add rights group identifie 1 ety 7 96:37:15 UAF .SRCJRIGHTSMAN. g35¢ - 3} 
7E OA AE OE 00 fF £7 XT2V. #0, #14, RESULT_ID+2, -(SP) ; 04 1 
Ar F OO0E USHAB NAME_DESC + 0420 

DD O00F PUSHL ; 

, 000000006 aoe $P DD O00F PUSHL ayArS RDBADDMSGU ; 

5 fe re aS CALLS LTB$SIGNAL : 
04 AE pp FC 9$ PUSHL RESULT_ID F 0424 
AE oF FF PUSHAB N NAME “DESC ; 0423 

, 000000006 i DD 001 PUSHL fuars RDBADDMSG : 

4 FB OO10A CALLS LTB$SIGNAL ; 
04 0010D RET + 0427 


; Routine Size: 270 bytes, Routine Base: S$CODE$ + 0000 


; 430 0428 1 
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VOer 000 UAFSADD_IDENT = Add rights identifier 14- Sep=1 3h 96: S318 UAF . SRCIRIGH TeMAN O3o04 . (4) 

; : ¢ . 2 } 1 %SBTTL ' UAFSADD_IDENT = Add rights identifier ' : 
3; 434 431 1 GLOBAL ROUTINE UAFSADD_IDENT : NOVALUE = ; 
; 435 4 § BE : 
; 436 4 '++ ; 
3 437 434 i ’ 
; t38 r 5 FUNCTIONAL DESCRIPTION: : 
; 440 4 $ ' This routine will add an identifier to the rights data base. ; 
> 441 438 : It is invoked via the ADD/IDENT command. $ 
: rr 0439 : - 
: «44 eek ! INPUTS: 3 
3 4446 441 ! F 
3: 445 Bees ! none 3 
3; 446 044 ! 3 
3: 447 0444 ' IMPLICIT INPUTS: : 
: 448 0445 ! : 
: 449 0446 ' Command Line 3 
; 450 0447 ! 3 
: 4651 0448 ' OUTPUTS: $ 
3 +26 0449 ! : 
3 45 0450 ! None 3 
; 454 0451 ! 3 
3; «455 Be eg ! IMPLICIT OUTPUTS: 

; 456 045 ! 

3; 457 0454 ! none 

; 458 0455 ! 

3; 459 0456 ' ROUTINE VALUE: 

; 460 ott ! 

: 461 0458 ! none 

; re ¢ 0459 ! 

3; 46 0460 ' SIDE EFFECTS: 

: 464 0461 ! ; 

; 465 Beg ‘ Rights data base is modified 

3 046 : 

3 467 0464 !—= 

: 468 465 

; 469 46 

; 470 46 LOCAL 

3; 471 468 NAME _DESC ESE. 

3; 47 469 NAME ~ BUFF VECTOR cgess _NAME, BYTE J] , 

: 47 0470 RESUCT_ID : SESIo (4); 

3 474 471 

; 475 47 RESULT Ip = 0; 

3; 476 47 IDENT = 0 ; 

3; 477 474 

; 478 75 ' 

; 479 47 i Set the resource attribute if /RESOURCE was specified. 

; 680 47 ' This is done first since it is required whether or not 

: : 1 8 Pl or /USER is specified. 

s 6 4 480 if Ch SSeRe sENT (SD_ATTRIBRESOURCE) 

:; 6 1 THEN ATTRIBUTES = KGBSM RESOURCE 

3 ? 5 § ELSE ATTRIBUTES =0; 

: 68 ! 

; 488 485 i we will now get the id name parameter from 


] 
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489 4 § ! the command line. If the parameter is missing 
re 4 r then the /USER qualifier must be present 
49 4 § IF CLISPRESENT ( SD_TOKEN1 ) 
49 490 THEN 
494 491 besin 
636 re CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; 
49 
498 495 NAME _DESCCLENGTH] = MIN ( 5 TOKENLEN » KGBSS- 
ra rh NAME _ DESC POINTER] = NAME _BUFF ; 
01 49 ! 
6¢ ri If the /VALUE qualifier was specified then get it's value 
04 0 iF NOT CLISPRESENT ( SD_VALUE ) 
05 THEN 
06 0 EGIN 
07 0 IDENT CUICSV_F wr tT] = 8 ; 
08 0 IDENT UIC$V=1 D_CODE) = 
09 0 ND 
0 ELSE 
0 BEGIN 
0 ' 


i /VALUE is there now determine what keyword was used 
! and interpret the data as appropriate. 

' First check for IDENTIFIER: 

IF cLisceT: VALUE ( SD_VALUEIDENTIFIER, TOKENDSC ) 


BEGIN 
LOCAL 
TMP_IDENT : LONG INITIAL (0) ; 


—t os 4 ss 8 a a 


MEW —OVOONOU EWN 0 OONO UE WI SO OONOU SW O 


bpd ddibbhih dh th Ah Ah Ah db Ab db bb db hh dh dh ah hh Ah Al 


MEUM —OOODNOULWN—O 


PMIPIPIPOPUNINYS — SS SS SS 
DOOCCOCOOCOCOOSO OOO SCOCOCOOCOCOOCOOOOCOCOOOOCOOCOOCOOOOOOO 


494 CHSCOPY ( .TOKENLEN, .TOKENPTR, %C° ‘, KGBSS “NAME , NAME BUFF ); 
| 
| 


PVPUDVIVPVLUDUSVSVIVSIUSV SUSU SUSU SSIS IIIT SITS SISOS 


Se Se Oe Oe Be Se Se Be Se Se Se Se Se Be Se Se Se Ge Se Se Se Ge Se FH Se Se Ss Ge Se Ge Se Se SH Be Ss Se Se Se Se Se Oe Se ee Se SH S+ Se Se SH Ge SH Se Se Se Se Seas 


PUPP BS TIO OP OP IOS TTT I BB BBE PAE EEE 


Ae = vee ( TMP_IDENT, LONGWORD_LENGTH ); 
TH 7) 
IDENT mechs FORAAT) = UICSK_ID FORMAT 3 
$ 5 IDENT CUICS OOO TMP_TDERT ; 
5 IF (. IDENT Ussund 08000'T OR 
8 5 (, IDENT GTRU £1°80 LAST_ID) 
9 5 THEN 
5 BEGIN 
1 5 LIBSSIGNAL (UAFS_ IDOUTRNG) ; 
3 5 RETURN 3 
5 END ; 
5 END 
5 5 ELSE 
; BEGIN | 
5 i Now check for UIC 
44 ; These two keywords are synonyms | 
41 538 iF CLISPRESENT (SD. VALUEUIC) | 
ri} 5 THEN IF fone. WILD (SD_VALUEUIC, TRUE ) 
4 240 yHen NRETURN 
44 54 IF .UIC_FLAG 
45 542 THER 
| 
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Sep-1984 1:18 UAF .SRCIR N.B32; 
BEGIN 
IF .GRP_ WILD and not .MEM_WILD 
THER 


BEGIN 
Wild cards are not allowed for group numbers 
LIBSSIGNAL (UAF$_NOGRPWILD); 
RETURN ; 
END ; 
The UIC format was used, parse it to fine the 
group and member number. 
ild card group and member numbers are allowed 


F NOT PARSE_UIC ( IDENTCUIC$V_GROUP) 
IDENTCUICSV_MEMBERI, 


Oto me meee ese 


THEN 


2, .TOKENLEN, 
ENPTRS; 
URN ; 


ma row 


EGIN 

IBSSIGNAL (UAF$_UICERR 
. TOKEN 

, 

IDENTCUICSV_ FORMAT] = UICSK_UIC_FORMAT ; 


BEGIN 


i A user mame was specified. Get the UAF record 
for this user and pull the UIC out. 


if .STR_WILD 
THEN 
BEGIN 
Wild cards are not allowed for user specs 
LIBSSIGNAL (UAF$_WLDNOTALWD) ; 
RETURN ; 


END ; 
FOUND_MATCH = FALSE ; 
IF RMSBAD ( WILD_USER (UAFSFIND_UIC)) 


BEGIN 

IF .RMSERR EQL RMSS 
THEN LIBSSIGNAL TUAF$_BADSPC) 
ELSE LIBSSIGNAL (UAF$_RDBADDERR 


Ve 
NAME_DESC, .RMSERR); 
RETURN ; 
END ; 
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to add the identifier 


AX=11 Bt 
UAF . SRC 


STATUS = SADD_IDENT ( NAME = NAME_DESC, 
1D = IDENT 
ATTRIB = sATTRIGUTES, 
RESID = RESULT_ID ) 
IF NOT .STATUS 
THEN 
BEGIN 
IF .IDENTCUICSV_FORMAT) EQL UIC$K_UIC_FORMAT 
THEN LIBSSIGNAL (UAF$_ROBAD ERRU. 3, NAME_DESC, 
TIDENTCUICS$V_GROUPJ,~ 
* IDENTCUICSV “REMBERS, STATUS) 
ELSE LIBSSIGNAL(UAFS. -RDBADDERRV, “2, NAME_DESC, .IDENT 
END 
ELSE 
BEGIN 
RIGHTSLIST_MODIF IED RUE. 
IF .RESULT~IDCUICSV AT) EQL UICSK_UIC_FORMAT 
THEN LIBSSIGNA VeFonmA RDBADDMSGU, 3, NAME_DESC, 
“RESULT. DCUIC$V_GR ROuPS 
RESULT -IDCUICS$V~MEMBERI ) 
ELSE LIBSSIGWAL UAFS. TRDBADDMSC 2, NAME _DESC, .RESULT_ID); 
END 
ELSE 
BEGIN 
IF CLISPRESENT (SD_USER) 
THEN, 


ETORN ; 
LSE 


EGIN 
IF NOT PARSE WILD (SD_USER, TRUE ) 
THEN R ; 


BEGIN 
“Cena enone: 


END ; 
FOUND _MATCH 
IF RASOAD 


RETURN 
END ; 


R EQL RMSS 
C IBSSIGNAL TUAFS -BADSPC) 
LIBSSIGNAL (UAFS$-"RDBADDERR, 1, 


= FALSE 
( WILD “USER (UAF$ADD_IDENT_RECBUF )) 


NAME _DESC, .RMSERR); 


! End of UAFSADD_IDENT 
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Vv 
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NASCmae ONC -O-9C f£CRHOe BL 
PPB + +1 


DENT+2 
4+ ¢ passe UIC 


TOKENPTR 
TOKENLEN, =(SP) 


a 

MUAFS_UICERR 
#192, IDENT+3 
16$ 

STR WILD, 15$ 
SYA S_MLONOTALWD 
FOUND MATCH 


UAF SF IND_UIC 
#1, WILD-USER 
RO, RMSERR 


NAME_DESC 
#4, SYSSADD_IDENT 
RO, STATUS 
IDENT#5, #192 

7$ 
RO 

IDENT, =(SP) 
#0, #14, IDENT+2, -(SP) 
NAME 


_bESc 


# 
#UAF $_RDBADDERRU 
#6, LTBSSIGNAL 


RO 
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~1984 02:23:14  VAX#11 Bliss-32 v4.0-742 ° 
sett ay MR TARE tte CE aoe 75 


os 


Fh bes 
Vv04-000 UAFSADD_IDENT = Add rights identifier °5 


67 DD 001C PUSHL IDENT 1 0614 
30 AE BF 1f8 PUSHAB NAME_DESC ; 
DD 001CB PUSHL # : 
000000006 F DD 15 PUSHL #VAFS_RDBADDERRV : 
000000006 90 1 3 105 18$:  MOVB #1 RIGHTS, IST MODIFIED : 0619 
CO BF 07 AES 1p¢ BITB R SuLT_ID+3, #19 : 0620 
7E 06 AE 3C 163 MOVZWL RESULT_ID, -(SP) + 0623 
7E OA AE OE 0 EF OO1E EXTZV. #0, #1%, RESULT_ID+2, -(SP) : 06 2 
30 AE F OO1ED PUSHAB NAME_DESC : 0621 
0 DD OO1F PUSHL #3 : 
000000006 BF DD OO1F PUSHL HUAFS RDBADDMSGU : 
6A 0S FB OO1F8 198: CALLS #5, LIBSSIGNAL : 
04 001FB RET : 
04 AE OD giFc 20$:  PUSHL RESULT_ID > 0624 
2c as SF OO1FF PUSHAB NAME_DESC : 
02 dd 00202 PUSHL # ; 
000000006 8F DD 00204 PUSHL SUAFS_RDBADDMSG ; 
SF 11 OO2OA BRB 27$ ; 
0190 C8 9F 0020C 21$:  PUSHAB SD_USER + 0629 
69 01 FB 00 19 CALLS #1; CLISPRESENT : 
11 50 €9 0021 LBC =—_s«aROs. 228 : 
01 DD 00 18 PUSHL #1 + 0632 
0190 C8 9F 0021 PUSHAB SD_USER ; 
000000006 00 08 FB 0 1g CALLS We, PARSE_WILD ; 
09 50 £8 00 : BLBS RO, 23$ ; 
04 00 6 RET > 0633 
000000006 8F DD 00227 22$: — PUSHL SUAFS_NOIDNAME + 0637 
28 11 00220 BRB 4 ; 
000000006 00 D4 O022F 238:  CLRL + FOUND_MATCH + 0640 
00000000v 00 9F 00235 PUSHAB UAFSADD_IDENT_RECBUF > 0641 
000000006 00 1 FB 0023 CALLS #1, WILB_USER ; 
6B 50 DO 0024 MOVL RO. RMSERR : 
26 50 EB 0024 BLBS : 
0 68 DO 00248 24$:  MOVL  RMSERR, RO > 0644 
00018282 «BF 0 D1 00 48 CMPL RO, #98994 ; 
0A 12 0025 BNEQ 6$ : 
000000006 8F DD 00 24 PUSHL #UAF$_BADSPC > 0645 
6A 01 FB 0025A 25$: CALLS #1, LIBSSIGNAL 3 
04 0025D RET ; 
50 DD 0025E 26$ PUSHL RO > 0646 
2c «AE OOF 0026 PUSHAB NAME_DESC ; 
1 DD 0 6 PUSHL #1 : 
000000006 8F DD 0026 PUSHL #UAF$_RDBADDERR ; 
6A 4 FB 00268 37s: CALLS #4, LIBSSIGNAL : 
04 0026E 28S: > 0653 


3; 657 


; Routine Size: 623 bytes, Routine Base: $CODES + O10E 
0654 1 
| 


<z 


ow 


AX-11 4) oer 74 te Ba5e4 


UAF .SRCJR 


3 
RIGHTSMAN 1b-5e -1984 02:23:14 
voe~000 UAFSADD_IDENT_RECBUF = Add rights identifier 1 300-13 96:57:18 
; 659 ee 1 %SBTTL ' UAFSADD_IDENT_RECBUF = Add rights identifier ' 
: 661 £8 | GLOBAL ROUTINE UAFSADD_IDENT_RECBUF = 
: 66 65 BEGIN 
: B82 been Si 
; 665 066] ¢ | FUNCTIONAL DESCRIPTION: 
: 667 og i This routine add ee ep to the rights data base for 
; 668 664 i a user and his grou The rouyine uses a UAF record as input 
; 292 et to determine what {eentitiers need to be added. 
: 671 66 i 
: 67 668 i INPUTS: 
: 67 0669 i 
Pee aa 
; 676 0676 | IMPLICIT INPUTS: 
: o78 Bore RECBUF must contain a valid UAF record 
: 680 0676 i QUTPUTS: 
> 681 067 i 
3 oe B978 None 
> 684 es i IMPLICIT OUTPUTS: 
> 685 0681 i 
cm Ge oh a 
> 688 0684 ROUTINE VALUE: 
: es Oe8e Always true 
i 69 0688 ¢ i SIDE EFFECTS: 
> 694 0690 2 | Rights data base is modified 
; 695 0691 ie 
; 696 3 
: 83 $94 5 LOCAL 
: 699 695 NAME_DESC : STATDESC, 
; 696 NAME "BUFF =: VECT RL ik gess. NAME, BYTE ) , 
: 701 3 RESUCT_ID  S5sL0 
; 08 639 RESULT_ID = 0 ; 
s ff 0 IDENT = 
; 705 701 FOUND _MATCH = TRUE; 
; f rO8 5 
: oe , 2 Get the identifier name from the UAF record username field. 
: 710 , éHscopy ( UAF $$ -USERNARE RE CBUF LUAFST_ USERNAME), %C° ', 
; at ? : NAME _DESCCLENGTRI ="MIN ( OAF$s USERNAME, 
: 714 10 CCHSFIND CH (KGBSS_NAME, NAME_BUFF, 
> 715 71 NAME_DESCCPOINTER] = NAME_BUFF ; 


XC’ ") = NAME_BUFF) ) ; 


. 3 
RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 
voe-b00 UAFSADD_IDENT_RECBUF = Add rights identifier 19-88-1382 Og: St: 18 Oar SReIRIC RIGH NT SMAN O3004 


; Build the identifier from the UAF record 
UAFSFIND_UIC () ; 


nae 


! 
Perform the actual service to add the identifier 


P STATUS = SADD_IDENT ( NAME = NAME_DESC, 

p 1D = . IDENT 

P ATTRIB = ATTRIBUTES, 
RESID = RESULT_ID )'; 


IF NOT .STATUS 
THEN 


BEGIN 
IF + 1DENTCY IC$V_FORMAT) EQL UICSK UIC, FORM 
THEN LIBSSIGNAL (UAFS “TDENTEUICBY6 DESC, 
TCUICSV ‘sna  IDENTCUICSV_MEMBERJ, 


- STATUS) 
ELSE LIBSSIGNAL(UAFS$_RDBADDERRV, 2, NAME_DESC, .IDENT, .STATUS); 


WWIAWIWIIRORoPoTnononononofnuny = = 


DH AP ARUN ODO NOU EU ODO 


NNNNNNNNANANNNNNNNNNNS 


BEGIN 

RIGHTSLIST_MO OpiF IED s eoiny 

IF .RESULT-ID AF! EQL 
THEN LTBBSIGNALTUAR a ti ° 
aLst LIBSSIGNAL (UAFS. RDBADD 


VIC$K_UIC FORMAT 
MSGU, 3, NAME 

c$v_GROUP), mE RESULT. IDCUICS$V_MEMBER) 
MSG; 2, NAME_DESC, 7RESULT_ID); 


WWIWAWA WWII IRnonononononononng ] | 2 


i we will now check for the presence of the group identifier 
and create it if it doesn't exist. 


UAFSADD_GRP_IDENT () ; 
RETURN TRUE ; 
END ; ! End of UAFSADD_IDENT_RECBUF 


PELL LEEDS 
NR SODNAVLS WN OO ODNAUNE WN (OOO NOU EWN OOODNOULS wr 


fe wm wm ww www lol ololalololeolelelelolel alel elo el al al ololel ol al el olalolola) 
SOLON NNN NNN 


Be Se Se Ge Se Ge Oe Se Fe Se Os Se Se Be Ge Se Oe Se Se Be Se Ge Se Se Se Se Se Se Ge Oe Se 8S SH SHS SH ee SHB we 


www 


0OFC 00000 -ENTRY USF SABO IDENT RECBUF . Save R2,R3,R4,R5,R6,- : 0657 


3 MOVAB b IBSSIGNAL . R7 
IDENT, R6 
Hh ot 
MOVL #1769 720. NAME _DESC 
B CLRL NAME_DESC 
& CLRL ibeNt i 


I ENT 
MOVL FOUND MATCH 
MOVC3 +35, RECBOF+4, NAME_BUFF 


SSSs & 
& a 


0¢ ve 000000006 00 


3 


RIGHTSMAN 1b-5e 1984 7:23:16 AX-11 Bliss-32 V4.0-74 P 

vooe UAFSADD_IDENT_RECBUF = Add rights identifier 1 ~300-1382 96:5 :18 YUAF SRE RIGHTSMAN.B32; ~~ (83 
04 AE 20 A LOCC #32, #32, NAME_BUFF : 0710 

e i2 : Beeg AS - 

p 9 CLRL sR : 

0 04 A B 1$: MOV NAME BUFF, RO : 

1 C F SUBL2 RO, R : 
0 D 4 CMPL) =sR1, #32 + 0708 

1 4 BLE ; 

51 D 4 MOVL #32, R1 : 
35 AE 04 AE SE O00cE -* «—sROVAB. NAME BUFF NAME_DESC+« : 0711 

+ . 
00000000v 06 06 a 5 CALLS #0, OAFSFIND_UIC : 0716 
DD A PUSHL + 0724 

F4 =A6 ODD C PUSHL ATTRIBUTES F 

66 pp 005F PUSHL IDENT : 

30 AE OF 0061 PUSHAB NAME DESC ; 

00000006 00 4 FB 00064 CALLS #4, SYSSADD_IDENT : 

0000000' : 0 D 006 MOVL RO. STATUS ; 
f 00 BLBS sir + 0726 
CO. oF 03 Ab 007 BITB {DENT+3, #192 + 0729 

1B 12 OOO7A BNEQ $ : 
5 po 007¢ PUSHL RO : 0732 
7E 66 3C¢ O07 MOVZWL IDENT, =(SP) : 0731 

7E 02 Ab OE 00 i Bt EXTZV. #0, #14, IDENT+2, -(SP) : 
30 AE F 00087 PUSHAB NAME_DESC + 0730 

0 DD OOOBA PUSHL #3 : 

000000006 BF DD 0008 PUSHL #UAF$_RDBADDERRU : 

67 06 FB 0009 CALLS #6, LIBSSIGNAL 3 

48 11 0009 BRB 7$ ; 
50 DD 00097 3$ PUSHL RO + 0733 

66 DD 00099 PUSHL IDENT ; 

2c AE OF 00098 PUSHAB NAME_DESC F 

02 DD 0009E PUSHL # F 

000000006 BF bp SOA0 PUSHL #UAF $_RDBADDERRV : 
000000006 00 64 90 OO0A8 4$: MOVB #1, RIGHTSLIST_MODIFIED + 0737 
CO oF 03 AE 93 OOOAF BiTB  RESULT_1D+3, #792 : 0738 

19 12 000B4 BNEQ 6$ ; 
7E 6E 3C 00086 MOVZWL RESULT_ID, -(SP) : 0740 

7E 06 AE OE 00 i 0089 EXT2V. #0, #1%, RESULT_ID+2, -(SP) : 
2c AE F OOOBF PUSHAB NAME_DESC : 0739 

03 pd 000C2 PUSHL #3 ; 

000000006 8F DD docs PUSHL aAFS RDBADDMSGU F 

67 05 FB OOOCA S$: CALLS #5, LIBSSIGNAL : 

10 11 ocd BRB 73 : 
6E po CF 6$: PUSHL RESULT_ID + 0741 

28 aS F 000D1 PUSHAB NAME_DESC z 

0 DD 000D4 PUSHL # ; 

000000006 8F DD 00006 PUSHL #UAF$_RDBADDMSG ; 

67 4 FB 000DC CALLS #4, LTBSSIGNAL ; 

FBOF cf 0 FB OODF 7$: CALLS #0. UAFSADD_GRP_IDENT : 

0 1 p OOE4 MOVL #1. RO ; 

4 Q00E7 RET 3 


; Routine Size: 232 bytes, Routine Base: $CODE$S + 037D 


3; 7 0753 1 


ei eee ~ _ 7 


i. 
RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V 
voe-000 UAFSBUILD_HOLDER = Build a holder quadword fr 1 730071 38e 9:8 718 UAF LSREIR GHTS 


3 766 r : ! ZSBTTL * UAFSBUILD_HOLDER = Build a holder quadword from UAF record’ : 
; 76) 7 § 1 GLOBAL ROUTINE UAFSBUILD_HOLDER= 3 
; 776 7 BEGIN 3 
SH 7 8 ‘ee 3 
3; 764 7 ! 3 
3 £9? re FUNCTIONAL DESCRIPTION: | : 
s £6 Ore } This routine is used to build a quadword holder from F 
3 res 76 ' a UAF record 3 
3 8 764 ' 3 
: 770 765 ' INPUTS: 3 
.. Fre 708 ! 3 
3; 77 76 ! none F 
: 77 768 ' 3 
; 7746 769 ' IMPLICIT INPUTS: é 
3 775 770 ' 3 
; 776 771 ! RECBUF must contain a valid UAF record : 
3: 777 re ' 3 
:; 778 77 ' OUTPUTS: é 
s 779 774 ! 3 
; 780 0775 ! None 3 
; «6781 76 ' 3 
s fe 77 ! IMPLICIT OUTPUTS: 3 
; 7 778 ! 3 
; «784 1464 ! HOLDER is initialized 3 
s 785 780 ! 3 
; 786 0781 ' ROUTINE VALUE: $ 
; 787 474 ! 3 
; 788 378 : Always true : 
; 789 784 ! 3 
; 790 0785 ' SIDE EFFECTS: 3 
; 791 786 ! 3 
; 79 787 ! none - 
; FF 788 tee 3 
3; 794 0789 : 
3; 795 0790 3 
s oe 44 BIND HOLDER_VEC = HOLDER : VECTOR (2,LONG) ; : 
3 a O738 FOUND_MATCH = TRUE; : 
: 800 0795 HOLDERCUICSV_FORMAT) = UICSK_UIC_FORMAT ; ; 
; 801 796 HOLDERCUIC$V“GROUP] = .RECBOF COAF$W_GRP) ; : 
3 B08 878 HOLDERLUICSV_MEMBER] = .RECBUF LUAFSW_MEM) ; : 
: 8 0798 HOLDER_VECL1) = 0 ; : 
; 805 800 : 
3 $08 0801 RETURN TRUE ; : 
; 808 0808 END ; ! End of UAFSBUILD_HOLDER : 

HOLDER_VEC= HOLDER | ; 


0004 00000 -ENTRY UAFSBUILD_HOLDER, Save R2 ; 0756 


; Routine Size: 45 bytes, Routine Base: S$CODES + 0465 


RIGHTSMAN -1984 AX-11 $s-32 V4.0-74 
viet UAFSBUILD_HOLDER = Build a holder quadword fr 1bose ~300n 138% 9: $7 18 UAF. sredR RIGHTSMAN.B32; 

00000000' ] MOVAB ROL DER, R2 ; 

onaead ’ 3 9 g MOVL FOUND. pat 4 3 

A £0 F BA 0001 BICB2 4 1$2° HOLDER ; 

02 A2 OE 00 000000006 00 F 1 INSV RECBUF + 90. #14, HOLDER+2 ‘ 

62 000000006 00 BO 0001F MOVW § RECBUF+36, HOLDER ; 

04 A2 D4 0026 CLRL - HOLDER_VEC+4 ; 

50 OT pO 000 MOVL #1, RO : 

4 0002C RET ; 


; 809 0804 1 


3 
RIGHTSMAN 1-se “1984 02:23:14 AX-11 Bliss-32 V4.0-74 
voe~000 UAFSCREATE_RDB = Create a new RIGHTSLIST 12-30-1984 9:37:18 LUA «SRC RIGHTSMAN.B32; 
R 


5 1 ZSBTTL " UAFSCREATE_RDB = Create a new RIGHTSLIST’ 


1 GLOBAL ROUTINE UAFSCREATE_RDB : NOVALUE = 
BEGIN 


Ss 


+ 
- 


FUNCTIONAL DESCRIPTION: 
This routine is used to create a new rights data base. It 
is invoked via the CREATE/RIGHTS command. It does not, however, 
create the file if it already exists. 
INPUTS: 
none 
IMPLICIT INPUTS: 
command Line 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
A new rights data base id created and initialized 


(00.00 000000 0000000000 
bet tt et et et ah ah at at tt eer er er per par ep per ertoer +9 


DONA MEW OO ONOAULS WN (OO OVNOAUES WN O0O@ 


WN —OOONAUESWN OO ONOULS Wn 


0 0909 09 Co CD CD CD 
MEWPR—OOONOVE WN "OC DONO UE WN" O0OnN 


yt et at et 
2 Cd Cd C9 CD OD Od 09 Cd CD C9 CD 09 CD CD CD CD C9. 0D 0D CD 029 CD CD 


WA AIA 


FRESE 


=OODNO VE WP OOONOUE WO 


OOOOCCOCOCOCOOOSOOSGOSCOCSCOOOOCSOOOOOOC OOOO OOOOOOoOSoO 


: BYTE 
: VECTOR C2,LONG), 
: LONG ; 


PAA & & 


If a system ID was specified then get the first two numeric 
values. If more than two exist then ignore the extra, If less 
than two exist fill in with zeros 


rs art 
STER-IDE13 = 5 ; 
I 


NNN sm wr were 
<<< 


LE (CLISGET_VALUE ( SD_SYSTEM_ID, TOKENDSC )) AND 
aesin LEG 7) DO 
STATUS = GETVAL ( SYSTEM_ID C.1] , LONGWORD_LENGTH ); 


PPAATIMAMIUIUIM 
£ ts 


Be Se Se Se Se Se Se Se Se Se Ge Se Se Ge S. Ge Se Ge Se Se Ge Se Be Se Ge Ge Se Ge Se Ge Gs Se Se Se Ge Ge Se Se Ge Se Se Se Ge Se Se Se Se Ge Ft Se Se Se Se ee Se eees 
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Page 3 


co 
RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 p 9 
von UAFSCREATE_RDB - Create anew RIGHTSLIST  easep-iope SSiStii8 | HOKE eR h Lee nFe aka 83509 age 65 
: 868 6 IF NOT .STATUS 
: 869 68 _ THEN RETURN ; 
: 871 65 SYSTEM_ID_PTR = SYSTEM_ID ; 
3 if 06 END ; 
: Hh 3 
; 154 é3 Now call the service to create the file 
: 877 4s Be Ds 
: 878 Bre STATUS = SCREATE_RDB(sysid=.SYSTEM_ID_PTR); 
; 44 7 if not .STATUS then 
: 880 rh ‘ LIBSSIGNAL(UAF$_RDBCREERR, 0, .STATUS) 
Py se 
; 88¢ 0 ds begin 
: 88 87 RIGHTSLIST_MODIFIED = TRUE; 
> 884 0878 RDB_EXISTS "= TRUE; 
; 885 0879 LIBSSIGNAL (UAF$_RDBCREMSG) ; 
: 886 0880 end; 
: 887 0881 
Oe B hoes 
: 890 0884 1 end; ! End of UAFSCREATE_RDB 


.EXTRN SYSSCREATE_RDB 


003c 00000 .ENTRY UAFSCREATE_RDB, Save R2,R3,R4,R5 : 0807 
55 000000006 00 9€ 00002 MOVAB LIBSSIGNAL; R5 ; 
54 00000000' 00 9€ 00009 MOV STATUS, R4 : 
SE 04 C2 0001 SUBL2 #4, SP ; 
3 D4 0001 CLRL  SYSTEM_ID_PTR + 0854 
7E D4 0001 CLRL = SYSTEMTID > 0855 
04 AE 04 0001 CLRL = SYSTEMT1D+4 > 0856 
52 94 OOOIA CLRB : 0857 
000000006 00 OF oo1¢ 1$: PUSHAB TOKENDSC > 0858 
01 4 9F 000 PUSHAB SD_SYSTEM_ID : 
000000006 00 FB 90 6 CALLS a2 L1$GET_VALUE : 
32 9 000 BLBC ~—_—«RO, ; 
1 1 000 CMPB } " + 0859 
1D 1A 000 BGTRU $ : 
29 pp 00 PUSHL #32 > 0861 
50 : A 00 MOVZBL 1, RO : 
04 AEGO OF A PUSHAL SYSTEM _IDCRO) ; 
000000006 00 08 F CALLS ne, GETVAL ; 
4 D 4 MOVL RO, STATU ; 
64 4 BLBC STATUS, 4 ; 9 
2 96 00048 INCBO ; 
53 é6E 9 4 MOV SySTEM_ID, SYSTEM_ID_PTR : 
A 1 BRB 4 ; 
3 Do 2s: PUSHL SYSTEM {0 PTR : 
000000006 00 1 F CALLS #1, SYSS$CREATE_RDB ; 
4 D B VL  =RO, STATUS : 
E E : LBS_—séRO«; : 0873 
DD 0006 PUSHL R > 0874 
E D4 00063 CLRL. = = (SP) : 


RIGHTSMAN 1b-se -1 AX-11 Bliss-32 V4.0-74 Pp 0 R 
Woen000 UAFSCREATE.RDB = Create a new RIGHTSLIST  Jergebatone $S:Sti1a | FOXE LaPh ten Peake 05547 alt vt 
0000000 5 PUSH AF$_RDBCREERR : 
5 . ' gE FB ; CA ts ne LTBSSIGNAL ; 
900000006 00 1 $9 F 3$: MOVB , RIGHTSLIST_MODIFIED ; 0877 
00000006 00 1 D 6 MOVL At RDB_EXISTS~ : 0878 
000000006 8F DD 00 zp PUSHL airs RBBCREMSG ; 0879 
5 01 FB 0008 CALLS LTB$SIGNAL 3 
04 00086 4$: ET + 0884 


; Routine Size: 135 bytes, Routine Base: SCODE$ + 0492 


; 891 0885 1 


oocpcDCECDCDCD Ot 
Oo Oo 


sO © 000000000 00 09 09 09 09 09 CO. CD CD CD 
COOOCOOOOOOOOOOWOMC. 


WO OOnNOuUlSwn—O”0 


UN 9 DONA UES WN “OO ONOULS WHO 


OWOOOOOOOVOOOOODOOODOODOOOWOOVOO 
WA AIAIRI PIPURINININPININID 2 2 SS OS OS OS 


SSGEAE 


oowownovocno 


oO 


DODOOOOOVOOOOOOODOOOODOOOOODOOOOOONO 
PAWN AAA AAI FP PIPUDINPONINPININPIDD 9 = OOO a ae 
MR—OOONOUNES UN “OOO NAUS WN" O OONAOUSWN "ODO 


SOOCCOOOOOOOOOOOOOSOSOSOOOOOSOOOSOoOoOoOO 
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UAFSDISPLAY_IDENT = Display rights identifie 12: b-sep-1984 9¢: 1:18 UAF .SRC 


3:14 AX-11 Bf 


! AZSBTTL * UAFSDISPLAY_IDENT = Display rights identifiers ' 


: GLOBAL ROUTINE UAFSDISPLAY_IDENT : NOVALUE = 
BEGIN 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
This is the common routine used by the SHOW/IDENT and LIST/IDENT 
command. It will interogate the rights data base and output the 
desird information 

INPUTS: 
none 

IMPLICIT INPUTS: 


RABPTR must poin 
RDB_LIST_FLAG = 


SHOW_ID_FULL 


t to the output RAB 
1 => List operation 
9 => show operation 
0 


=> show/List full 
=> show/List brief 


| OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 


; {ROUTINE VALUE: 


none 
SIDE EFFECTS: 
none 


LOCAL 


WILD. CARD ONG 
NAME-DESC: STATDESC, 
NAMEBUFF =: VECTOR C KGBSS_NAME, BYTE ) ; 


IDENT = 0 ; 


! We will now get the id {none /_perenster yi 
the command line. If i t present th 
| RUST have either the vive” or GOUNER qualifier present. 


IF NOT CLISPRESENT ( SD_TOKEN1 ) 


N 3 
RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 
Vorno00 UAFSDISPLAY_IDENT = Display rights identifie 13-808=1 382 9g iSFi 18 UAF .SRCJRIGHTSMAN.B32; 
H 329 943 THEN 
; 951 944 IF NOT (CLISPRESENT ( SD_VALUE ) OR 
3 326 945 CLISPRESENT ( SD_USER )) 
; 94 THEN 
: 954 094 BEGIN 
; 955 0948 LIBSSIGNAL (UAF$_NOIDNAME) 
3 328 949 RETURN ; 
; 95 950 END ; 
; 958 951 
: 959 326 IF .RDOB_LIST_FLAG 
: 960 95 TH Batt IBSSToNaL (vars _LSTMSG1); 
: 20) Ree RDB HEADER FLAG = TRUE ; 
3 308 B328 IF CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) 
3; 964 095 THEN 
: 965 0958 BEGIN 
3; 966 0959 
; 967 0960 a ae ( .T0 ets & ~TOKENPTR, %C° °, KGBSS_NAME, NAME_BUFF ); 
; 968 0961 AME _D DESCELENG! = othe ( sf OKENLEN , KGBSS"NAME ) ; 
; «969 096 AME “DESC POINTER] = NAME_BUFF 
: 970 096 
: #971 0964 ! 
3 87 0965 ' Check for a wild card 
:; 97 0966 ! 
; 974 0967 IF CHSEQL ¢ “S DESCCLE NA ME DESCCPOINTER], 
> 975 0968 UPCIT(BYTE 35, vere?) 
: 976 0969 HEN 
s 977 0970 4 BEGIN 
; 978 0971 4 IDENT = UICSK MATCH ALL ; ! Wild card specified by ID value of -1 
: 979 0972 4 WILD_CARD = TRUE ; 
3; 980 0973 4 END 
; «981 0974 3 ELSE 
; 98 0975 4 BEGIN 
; 98 0976 4 ! 
3; 6984 0977 4 ! Get the IDENT from the ascii string 
: #985 0978 4 ! 
3 86 P 0979 4 STATUS = SASCTOID ( NAME = NAME_DESC, 
; 987 0980 4 ID = IDENT ) ; 
: 988 0981 4 IF NOT .STATUS 
3; 4989 0982 4 
; 990 0983 5 BEGIN 
; 991 0984 5 IF .RDB_LIST_FLAG 
: 992 0985 5 THER 
: 993 aa6 6 BEGIN 
; 994 9 6 LIBSSIGNAL (UAF$_LSTERR -STATUS); 
; 995 988 6 RLSTFAB CFABSV_OLT) = fR Me : 
: 996 0989 2 END 
: 997 Baas | aces LIBSSIGNAL(UAF$_SHOWERR, 0, .STATUS); 
; 998 991 #5 RETURN 
3; .999 944 4 END 
+ 1000 099 4 WILD_CARD = has : 
; 1001 994 END > 
: Ione 995 
: 100 99 STATUS = UAFSWRITE_IDENT ( . IDENT, .SHOW_ID_FULL, .WILD_CARD ) ; 
3 1O0e 99 IF NOT .STA 
: 1005 99 THEN IF .RDB_LIST_FLAG 
; 1006 099 THEN 


4 
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voe~000 UAFSDISPLAY_IDENT = Display rights identifie 12286871382 9g:SF 18 LOAF .SRe RIGHTSMAN.B32; “ B} 

1908 100) PISSSIGNAL (UAFS.LSTERR, 0, .STATUS) 
: 1009 1008 4 RLSTFAB CFABSV_DLTJ] = fRUE ; : : 
; 1010 1003 4 RETURN ; ; 
3; 1011 1004 4 END : 
; 1016 1005 ELSE LIBSSIGNAL(UAFS_SHOWERR, 0, .STATUS); : 
: 101 1006 END ; : 
: 1014 1007 : 
: 1015 1008 ! : 
; 1016 1009 ! If the /VALUE qualifier was specified then get it's value : 
; ilk 1919 : First check fo IDENTIFIER: : 
: 1019 1014 IF CLISGET_VALUE ( SD_VALUEIDENTIFIER, TOKENDSC ) ; 
5 1950 101 THEN : 
: 1021 1014 BEGIN : 
: 1266 1015 LOCAL 3 
3: 102 1016 3 TMP_IDENT : LONG INITIAL (0) ; ; 
3: 1024 1017 3 
3; 1025 1018 3 STATUS = GETVAL ( TMP_IDENT, LONGWORD_LENGTH ); : 
3; 1026 1019 3 IF NOT .STATUS : 
3; 1027 1020 3 THEN RETURN ; 3 
3; 1028 1021 3 IDENT CUICSV_FORMAT] = UICSK_ID_FORMAT ; : 
; Ie 1058 3 IDENT CUIC$V-ID_CODE) = .TMP_YDENT ; ; 
; 1030 1023 3 STATUS = UAFSWRITE_IDENT ( . IDENT, .SHOW_ID_FULL, FALSE ) ; § 
3 1031 1024 ; IF NOT .STATUS : 
; 1052 1025 THEN IF .RDB_LIST_FLAG F 
: 103 1026 3 THEN 3 
> 1034 1027 4 BEGIN ; 
3 1035 1028 4 LIBSSIGNAL(UAF$S_LSTERR, 0, .STATUS); ; 
> 1036 10¢9 4 RLSTFAB CFABSV_DLTJ = TRUE ; ; 
: 1037 1030 4 RETURN ; ; 
: 1038 1031 4 END : 
: 1039 1036 3 ELSE LIBSSIGNAL(UAF$_SHOWERR, 0, .STATUS); : 
: 1040 103 ; 
3 1041 1034 2 ELSE IF CLISPRESENT (SD_VALUEUIC) 3 
; ek 1035 4 THE ; 
3: 104 1036 BEGIN : 
3; 1044 1037 ! ; 
3 1045 1038 ! Now check for UIC : 
3 1046 1039 ! : 
3 1047 1040 IF NOT PARSE WILD (SD_VALUEUIC, TRUE ) : 
3; 1048 1041 THEN RETORN ; ; 
3; 1049 + o IF .UIC_FLAG ; 
3; 1050 196 ; 
: 1051 1044 4 BEGIN : 
3 1036 1045 4 ! : 
3; 105 1046 4 ! The UIC format was used, parse it to fine the 3 
3 1054 1047 4 ! group and member number. ; 
; 1922 | : } ild card group and member numbers are allowed : 
3 1089 1980 4 IF NOT PARSE_UIC ( IDENTCUICS$V_GROUP) 3 
> 1058 1051 4 IDENTCUICSV—MEMBERI, : 
: 1059 1 26 4 TRUE ) ; 
3: 1060 1053 4 THEN 3 
: 1061 1054 2 BEGIN : 
; 1986 1055 LIBSSIGNAL(UAFS_UICERR, 2, .TOKENLEN, .TOKENPTR); : 
: 106 1056 5 RETURN ; : 
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> 1064 1057 4 END ; 

> 1065 1938 4 WILD CARD = FALSE ; 

; 1066 1059 4 IDENTCUICSV_FORMATS = UICSK_UIC_FORMAT ; 

> 1067 1960 4 END 

: 1068 1061 3 ELSE 

+ 1069 106¢ 4 BEGIN 

: 1070 1063 4 t 

: 1071 1064 4 ' A user name was specified. Get the UAF record 

: 19t6 1065 4 ! for this user and pull the UIC out. 

: 107 1066 4 i 

: 1074 1067 4 WILD CARD = .STR_WILD ; 

> 1075 1068 4 IF .STR 

: 1076 1069 4 THEN IDENT = UICSK_MATCH_ALL 

> 1077 1070 4 ELSE 

: 1078 1071 § BEGIN 

: 1079 1078 5 FOUND_MATCH = FALSE ; 

> 1080 1073 6 IF RMSBAD ( WILD_USER (UAFSFIND_UIC)) 

+ 1081 1074 5 THEN 

; 108@ 1075 6 BEGIN 

: 108 1076 6 IF .RMSERR EQL RMS$_RNF 

3: 1084 1077 6 THEN LIBSSIGNALTUAF$_BADSPC) 

> 1085 1078 6 ELSE IF .RDB_LIST FLAG 

: 1086 1079 6 THEN LIBSSIGNAL(UAFS_LSTERR, 0, 
> 1087 1080 6 ~STA 

+ 1088 1081 6 ELSE LIBSSIGNAL(UAF$_SHOWERR, 0, 
: 1089 1082 6 ~STATUS); 

: 1090 1083 6 RETURN ; 

: 1091 1084 5 END ; 

; 109¢ 1085 4 END ; 

: 109 1086 END ; 

: 1094 1087 STATUS = UAFSWRITE_IDENT ( . IDENT, .SHOW_ID_FULL, .WILD_CARD ) ; 
+ 1095 1088 IF NOT .STAT 

: 1096 1089 THEN IF .RDB_LIST_FLAG 

: 1097 1090 THEN 

> 1098 1091 4 GIN 

: 1099 109¢ 4 LIBSSIGNAL(UAF$_LSTERR, 0, .STATUS); 

> 1100 1093 4 RLS1¢AB CFABSV_BLT) = TRUE ; 

+ 1101 1094 4 RETURN ; 

: 1108 1095 4 END 

: 110 109% 3 ELSE LIBSSIGNAL(UAF$_SHOWERR, 0, .STATUS); 

> 1104 1097 END; 

: 1105 1098 2 IF CLISPRESENT (SD_USER) 

: 1106 1099 THEN IF PARSE_QILD (SD_USER, TRUE ) 

: 1107 1100 THEN 

: 1108 1101 BEGIN 

: 1109 1108 FOUND_MATCH = FALSE ; 

+ 1110 11 4 IF RMSBAD ( WILD_USER (UAFSDISPLAY_IDENT_RECBUF ) ) 

+ 1111 1104 3 THEN | 
: 1118 1105 4 

+ 111 1106 4 IF .RMSERR EQL RMS$_RNF 
+ 1114 1107 4 THEN LIBSSIGNAL TUAF$_BADSPC) 

+ 1115 1108 4 ELSE IF .ROB_LIST_FLAG 

: 1116 1109 4 THEN 

: 111 1110 BEGIN 

: 1118 1111 LIBSSIGNAL(UAF$_LSTERR, 0, .STATUS); 

+ 1119 1118 RLSTFAB CFABSV_OLT) = fRuE : 

+ 1120 111 RETURN ; 
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Woon 000 UAFSDISPLAY_IDENT = Display rights identifie 15- Sep-19 1 98: $F] UAF .SRCJRIGHTSMAN.B32; 3 BS  § 
: 1121 1114 5 END 
:11 : 15 4 ELSE LIBSSIGNAL(UAF$_SHOWERR, 0, .STATUS); | 
> 11 1116 END ; | 
We it - 
:11 6 W419 IF .RDB_LIST_FLAG 
; 1 4 1) 9 THEN LIBSSIGNAL(UAFS_ RLSTMSG); 
WG 0 jg gem 
: 1131 1124 17 END ; ! End of UAFSDISPLAY_IDENT 
-PSECT S$PLITS,NOWRT,NOEXE,2 
0068 .BLKB 1 
2A 0006C P.AAN: ASCII \#\ ; 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY ECR TR IDENT, Save R2,R3,R4,R5,R6,R7.- ; 0888 
5B 000000006 8F DO 00002 MOVL atts SHOUERR R11 : 
5a 000000006 90 9€ 00009 MOVAB CLISPRESE R10 ; 
59 000000006 0 9E 00010 MOVAB LIBS$S IGRAL Rd : 
38 90000000" 00 9€ 00017 MOVAB IDENT, R8 ; 
57 00000000" 00 9 00018 MOV STATUS, R7 ; 
5E eC C2 0002 SUBL2 #44, $ ; 
24 AE 010E0000 8F 00 00028 MOVL § #17694720, NAME_DESC : 0931 
28 AE 04 000 CLRL NAME_DESC+4 : 
6 p4 000 CLRL —sCIDENT + 0934 
0180 ¢? 9F 000 PUSHAB SD_TOKEN1 : 0942 
6A o1 FB 00039 CALLS #17 CLISPRESENT : 
1D : E 003¢ BLBS . : 
0198 C7? 9SF 0003F PUSHAB SD _VALUE + 0944 
6A o1 FB 0043 CALLS #17 tl PRESENT ; 
13 0 E 0046 BLBS RO. 1 ; 
0190 C7 SF 00049 PUSHAB SD_USER + 0945 
6A gi FB 9040 CALLS #17 CLISPRESENT : 
09 0 € 5 BLBS ; 
000000006 gf pp 09 PUSHL Ars _NOIDNAME : 0948 
02 ‘ BRW 3 
09 F1 AS €E9 0005C 18: BLBC $B Faris ELAG, 2$ > 095 
000000006 8F DD PUSHL i" AF > 095 
9 1 FB CALLS tress ; 
FO AB 1 9 69 2%: MOVB * RDB NEADER. FLAG > 0954 
000000006 9 oF 06 PUSHAB OKEN NDSt : 0956 
000000006 any rt rs CAS” P i cee ger VALUE 
88 a § i O07 BLBS 7 $ ’ : 
56 990000006 6 ¢ 3$: MOVZWL TOKENLEN, R + 0960 
5 00006 p MOVL ‘TOKE NPTR. R : 
20 20 60 6 2C 0009 MOVCS R6, (RO), #32, #32, NAME_BUFF : 
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000000006 


00000000v 


000000006 
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00000000v 
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50 
AE 
AE 4 
pal: 
00000000" 
$$ 
0 2c 
8 
7? 
3 Fi 
01 
7E FC 
8 
Bon 


9 
000000006 
01A0 


00 
42 
04 
00 ; 
01 7 
06 
7E FC Hi 
0 
ef i 
OOCF 
03 fl A8 
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1984 X=-11 Ol ise3e V4.0-74 
RIGHTSMAN.B32; 
9 
MOVL 6, R 
C CMPW SiO, #32 
OF BLEQU 4 
Al MOVL #32, RO 
AG 4S: MOVW RO, NAME_DESC 
Ag MOV NAME_BUFF, NAME_DESC+4 
AD CMPC5 NAME-DESC, @NAME_DESC+4, #32, #1, P.AAN 
089 BNEQ 5$ 
OBB MNEGL #1, IDENT 
008 OVL #1, WILD_CARD 
C BRB 7$ 
00C3 5$: CLRL = = (SP) 
00¢ PUSHL RB 
00¢ PUSHAB NAME_DESC 
OOCA CALLS #3, SYSS$ASCTOID 
0001 MOVL RO. STATUS 
00D4 BLBS 3 
0007 BLBS § RDB_LIST_FLAG, 12$ 
0008 BRW 20$ 
OOD 68: CLRL WILD _CARD 
O0E0 7$: PUSHL WILD7CARD 
O0E MOVZBL SHOW-ID_FULL, -(SP) 
OO0E PUSHL IDENT 
O0E CALLS #3, UAFSWRITE_IDENT 
OOEF MOVL RO. STATUS 
OOF 2 BLBS sR 
OOF BLBS § RDB_LIST_FLAG, 128 
00F9 PUSHL RO 
O0FB CLRL. = = (SP) 
OOFD PUSHL R11 
OOFF CALLS #3, LIBSSIGNAL 
0108 8$: PUSHAB TOKENDSC 
010 PUSHAB SD_VALUEIDENTIFIER 
010¢ CALLS #27 CLISGET_VALUE 
on BLBC 
118 CLRL ‘ TMP_IDENT 
011 PUSHL #32 
11A PUSHAB TMP_IDENT 
11D CALLS #2, GETVAL 
124 OVL RO. STATUS 
i BLBS STATUS, 9$ 
10B 9$: INSV #2, #6, #2, JDENTs3 
1 INSV TMP_IDENT, #0, #28, IDENT 
138 10$:  MOVZBL SHOW_ID_FULL, -(SP) 
13¢ PUSHL 
1 CALLS #3, UAFSWRITE_IDENT 
14 MOVL * STATUS 
14 BLBC 
148 11$: BRW 
14E 12$:  BLBC  RDB_LIST_FLAG, 13S 
1 BRW 5 
155 13$: BRwW $ 
158 14$: | PUSHAB SD_VALUEUIC 


————_—_——— 
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RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 Pa 7 
voor UAFSDISPLAY_IDENT = Display rights identifie 1 =300 71383 96:59:18 YOAF . SREIRIGHTSMAN O32: = Rif 
6A 1 FB 0015C¢ CALLS #1, CLISPRESENT ; ; 
£9 H 8 12 BLBC ~—_ «RO, aT : ; 
1 Bo 1 é PUSHL + 1040 ; 
01A8 C7 OF 001 PUSHAB SD_VALUEUVIC F : 
000000006 00 : EB 168 CALLS ae, PARSE_WILD ; : 
1 F F BLBS RO, 15$ : ; 
33 000000006 00 £9 148 15$:  BLBC UIC_FLAG, 17$ + 1042 ; 
1 DD OO17A PUSHL #1 + 1051 ; 
02 AB SF OolvE PUSHAB IDENT#2 ; 1050 ; 
000000006 09 : re a 1 CALLS #3, PARSE_UIC + 1051 ; 
£8 00188 BLBS . : : 
900000006 0 BD 018B PUSHL  TOKENPTR + 1055 ; 
7E 000000006 9 € 00191 MOVZWL TOKENLEN, -(SP) : ; 
DD 00198 PUSHL # : ; 
000000006 8F DD 0019A PUSHL M#UAF$_UICERR : ; 
69 4 FB O1A0 CALLS #4, LIBS$SIGNAL : ; 
04 OO1A RET > 1054 ; 
52 D4 OO1A4 16S: WILD_CARD : 1058 : 
03 «As CO BF BA 0016 BICB2 #1927 IDENT+3 : 1059 ; 
62 11 OO1AB 22$ : 104¢ ; 
50 000000006 00 DO 001AD 17$:  MOVL  STR_WILD, RO + 106 ; 
52 50 DO 001B4 MOVL RO, WILD_CARD : ; 
05 50 €9 00187 BLBC RO. 18S : 1068 ; 
66 gi cE O1BA MNEGL #1, IDENT + 1069 3 
0 11 0018D BRB 22§ ; ; 
000000006 00 D4 001BF 18$ CLRL - FOUND_MATCH : 1072 ; 
00000000Vv 39 9F 001C5 PUSHAB UAFSFIND_UIC : 107 3 
000000006 00 1 FB 001CB CALLS #1, WILD7USER : : 
000000006 50 0 001D2 MOVL RO, RMSERR : ; 
50 €8 00109 BLBS ; : 
00018282 BF 000000006 00 01 Oc CMPL  RMSERR, #98994 + 1076 ; 
09 12 OO1E BNEQ : ; 
000000006 8F pp O19 PUSHL  #UAF$_BADSPC : 1077 ; 
OOA8 31 OO1EF BRW : : 
50 67 00 OOiFe 19$: MOVL STATUS, RO + 1080 ; 
0c F1 a8 E9 OOTF BLBC §RDB_LIST_FLAG, 208 : 1078 F 
30 DD 001F9 PUSHL RO : 1080 ; 
E D4 OO1FB CLRL. = (SP) : 1079 3 
000000006 BF DD OO1F PUSHL M#UAFS$_LSTERR : ; 
6 11 0020 BRB 21$ ; : 
DD 00205 208 PUSHL RO + 1082 : 
E D4 07 CLRL. = (SP) > 1081 ; 
38 DD PUSHL 1 : ; 
69 03 FB 0020B 21$: CALLS #3, LIBSSIGNAL : ; 
04 0020€ RET > 1075 : 
2 pp OF 22$:  PUSHL WILD_CARD : 1087 : 
FF24 31 00211 BRW 10$ : : 
0 DD 00214 238:  PUSHL R > 1096 : 
E D4 18 CLRL. = =(SP) : ; 
5B DD 0021 PUSHL R11 : ; 
69 03 FB OO2IA CALLS #3, LIBSSIGNAL ; : 
0190 9F 0021D 248 PUSHAB $D_USER : 1098 ; 
6A 1 Fe 1 CALLS #17 CLISPRESENT ; ; 
69 0 € 4 BLBC~—E—saRO, : : 
1 DD 7 PUSHL : 1099 3 
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0190 7 OF PUSHAB SD_USER 
000000006 9 Fe CALL ie: PARSE _WILD 
E BL RO, 28$ 
FA 8880006 Be CL FOUND_MATCH 1108 
V F PUSHAB UAFSDISPLAY_IDENT_RECBUF 110 
S44 94 43 8 1 F CALLS #1, WILD_USER 
vowpee C 6 4 BLBS Rb. ee 
000182B2 F 000000006 01 
B 12 BNEQ 25 
00000000G 8F ODD PUSHL oat BADSPC 
69 } A #1, LIBSSIGNAL 
50 7 4 25$: MOV STATUS, RO 
14 F1 Ag . BL RDB_LIST_FLAG, 27$ 
3 DD 26$: PUSHL RO 
E 04 -(SP) 
00000000G 8F ODD PUSHL + aah LSTERR 
69 3 a} 0 CALL #3, LIBSSIGNAL 
00c1 (7 80 BF 8 0 BISB2 #128, RLSTFABSS 
4 00 RET 
0 OD 9 278: PUSHL RO 
E D4 CLRL -(SP) 
38 DD 00 PUSHL 11 
69 03 FB 00 CALLS #3, LIBSSIGNAL 
09 F1 A’ £9 00290 288:  8LB RDB_LIST_FLAG, 30$ 1119 
000000006 8F ODD $8 PUSHL #UAF$_RLSTMSG 1120 
69 01 FB 00 9$: CALLS #1, LIBSSIGNAL 
04 00 O$: 1124 
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RIGHTSMAN =$ep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 Page 40 R 
WOen000 P1984 96:33:15 DAF SREIRIENTSMAN: O32- 9 9) v0 
: 1333 Be § HF WOMEN RETURN. TRUE 
: 1198 1185 : : 
: 1194 11 : ' | ; 
; Bb 1 Now call the display routine : 
: 1137 1185 STATUS = UAFSWRITE_IDENT ( . IDENT, .SHOW_ID_FULL, FALSE ) ; | : 
: 1199 1191 RETURN .STATUS ; | ; 
: 1200 119¢ ; 
: 1201 119 END ; ! End of UAFSDISPLAY_IDENT_RECBUF : 
000c 000 .ENTRY UAFSDISPLAY_IDENT_RECBUF, Save R2,R3 : 1128 : 
53 00000000' 9 00 03 MOVAB IDENT Rg . rs : 3 
2 00000000° 9— 00 MOV STATUS, R2 : : 
5E C 9019 SUBL2 #40, $ ; ; 
20 AE O10E0000 BF OD 901 MOVL #17694720, NAME_DESC t 1167 ; 
24 AE 04 0001B CLRL $NAME _DESC+4 ; ; 
6 D4 OOF CLRL DEN + 1170 : 
000000006 00 1 pO 000 MOVL #1, FOUND_MATCH + 1171 : 
00000000v 00 00 FB 00027 CALLS #0, UAFSFIND_UIC : 1177 3 
¢4 AE i 9 00 : MOVAB _BUFF, NAME_DESC+4 + 1178 3 
0 AE : 00 MOVW #32, NAME_DESC : 1179 : 
— 7¢ 000 CLRQ 0s = ( SP) + 1182 : 
7E p4 900 CLRL 0s = (SP) : : 
3c AE 9F OOO3A PUSHAB NAME_DESC ; : 
0 Ar 9F 000 PUSHAB NAME~DESC ; 
DD 0004 PUSHL IDENT : 
000000006 09 FB 00 CALLS #6, SYSSIDTOASC ; 
D 4 MOVL RO STATUS ; 
4 62 € 4C BLBS STATUS, 1 : 1183 
0 01 00 0004F MOVL ? > 1184 
04 0005 RET ; 
7 p4 1$ CLRL = (SP) : 1189 
7E FC Ad 9A MOVZBL SHOW_ID_FULL, -(SP) ; 
DD 00059 PUSHL 1p N ; 
00000000v 09 FB 0 CALLS #3, UAFSWRITE_IDENT F 
6 0 MOVL RO. STATUS ; 
4 0006 ET : i 
| 
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ZSBTTL * UAFSDISPLAY_RIGHTS = Display rights held by user’ 
GLOBAL ROUTINE UAFSDISPLAY_RIGHTS : NOVALUE = 

BEGIN 

lee 

1 
FUNCTIONAL DESCRIPTION: 

' This is the common :outine used by the SHOW/RIGHTS and LIST/RIGHTS 
; command. It will ircterogate the rights data base and output the 
desird information 

INPUTS: 

! none 

IMPLICIT INPUTS: 

! RABPTR must oo to the output RAB 

: RDOB_LIST_FLAG = 1 => List operation 

} = 0 => show operation 

OUTPUTS: 

None 

! IMPLICIT OUTPUTS: 

none 

| ROUTINE VALUE: 

none 

SIDE EFFECTS: 

none 


BIND 
HOLDER_VEC = HOLDER : VECTOR [2,LONG) ; 


1 
! If the user id parameter is not present then the /OWNER 
; qualifier must be. 
IF NOT (CLISPRESENT ( 
CLISPRESENT 


BEGIN 
Ofass1GNAL (UAFS NOJDNAME 
RLSTFAB CFABSV_DLT) = TRUE ; 


IF .RDB_LIST_FLAG 


4 
RIGHTSMAN “Sep 4 AX-11 Bliss-32 V4.0-74 P 
youn UAFSDISPLAY_RIGHTS = Display rights held by us 14-Sep 71382 9¢: $3313 UAF. SReaRi en a et oe _ 165 


§ THEN LIBSSIGNAL (UAF$_ LSTMSG1); 
? RDB_HEADER_FLAG = TRUE ; 
5 
§ IF CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) 
THEN 
2 
r4 


— 


BEGIN 
HOLDER_VECC1) = 0 ; 


' 

Convert the ID from ASCII to a longword format 
P STATUS = SASCTOID ( NAME = = TOKENDSC 
P D HOLDER “véclol, 


ATTRIB = 0) 
IF NOT .STATUS 
THEN 


BEGIN 
IF .RDB_LIST_FLAG 
THER 


FW “OO OONOUS Wit" OOM 


BEGIN 
LIBSSIGNAL(UAF$ LSTERR, 0, .STATUS); 


een pin eine 


RLSTFAB CFABSV_BLT] = TRUE : 
ELSE LIBSSIGNAL(UAF$_SHOWERR, 0, .STATUS); 
oe 


81 
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Be Se Oe Se Se Se Be Se Se Se Se Se Se Se Fe Se Ge Se Ge Sse Ge Ge Se Se Se Se Ge Se Sse Ge Se Se Ge Se Fe Ge Se Ge Se Se See Se Se Se Se Se Se Se Se See te Sete tease 
me ee a ed ed dd = = = = = SS 3 I 


ee ee ee ee 


4 
4 
4 
5 
4 
4 
8¢ STATUS = UAFSWRITE_RIGHTS ( HOLDER ) ; 
8 IF NOT .STATUS 
84 THEN IF .RDB_LIST_FLAG 
85 THEN 
86 4 BEGIN 
87 4 LIBSSIGNAL (UAFS LSTERR, 0, .STATUS); 
88 4 AB CFABSV. SLT] = frué : 
89 4 
90 4 END 
31 ni ELSE Paice Salles 0, .STATUS); 
9 © 
94 2 IF CLISPRESENT (SD_USER) 
95 THEN 
%6 BEGIN 
97 4 IF NOT (STATUS = PARSE WILD (SD_USER, TRUE )) 
98 3 THEN IF .RDB_LIST_FCAG 
8 99 THEN 
00 4 BEGIN 
0 1 4 LIBSSIGNAL (UAFS LSTERR .STATUS); 
1 08 4 RLSTFAB CFABSV_DOLT) = frU ME 
é ‘ RETUR : 
4 4 ; ELSE LIBSSIGNAL(UAFS$_SHOWERR, 0, .STATUS); 
0 FOUND MATCH = 
08 4 IF RASBAD t uitD Oseh (UAFSDISPLAY_RIGHTS_RECBUF )) 


wees” 


1 


et a a wa — 9 a a ss a 1 


w 


ah an bb wb A ss ts a tt 


“ROB EL ST_FLAG 
HER TRSSTONAL (UAFS _RLSTMSG); 


RETURN’: 
END ; 'End of UAFSDISPLAY_RIGHTS 
HOLDER_VEC= HOLDER 
01FC 00000 ENTRY UAFSDISPLAY_RIGHTS, Save R2,R3,R4,R5,R6,R7,-; 
58 000000006 00 9€ 00002 MOVAB RMSERR Re 
57 00 0 006 0 9€ 00009 MOVAB crise NDSC 
36 00000006 00 9 90010 MOVAB cul PRESENT R6 
55 0000 9006 F p 9001 MOVL WERR, RS 
54 990 9 G6 00 9 O1g MOVAB (ies eS renere Ri 
53 0 00000' 00 9€ 000 MOVAB RDB_LIST FLAG, R3 
52 00000000' 00 9€ 900 OVAB STATUS, R2 
0180 C2 9F 000 PUSHAB $D_TOKEN1 
66 1 FB 00 CALLS #17 ¢ TSPRESENT 
16 g ; 003A LBS ; 
0190 F 0003D PUSHAB SD_USER 
66 1 FB 9041 CALLS #17 CLISPRESENT 
0c 0 € 44 BLBS 
000000006 8F DD 0047 PUSHL HUAFS NOIDNAME 
64 01 Fe 004 CALLS , LIBSSIGNAL 
00 ¢ 3 9 3 BRW 
09 9 1$: BLBC B LIST FLAG, 2$ 
000000006 18F DD 00056 PUSHL ia LSTASGI 
64 1 FB ¢ CALLS SIGNA 
FF OAS as 2$: OVB Ls sAEADER _FLAG 
7 pp 6 PUSHL oe 
0180 F 0006 PUSHAB $ _TOKEN! 
000000006 00 F $9 CALLS > CLISGET_VALUE 
40 E 9 BLBC 
0B A3 D4 0007 CLRL -HOLDER_VEC+4 
7E D4 0007 CLRL “(SB Pp) ~ 
07 AS 9F 0007 PUSHAB HOLDER_VEC 
3 DD 00078 PUSHL 
000000006 00 3 FB 0007D CALLS , SYSSASCTOID 


4 
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09 3 THEN 
10 4 BEGIN 
11 4 IF .RMSERR EQL RMS$_R 
\¢ 4 THEN CT IBSSICNALTUAES BADSPC) 
1 4 ELSE IF .RDB_LIST_F LAG 
14 & THEN 
15 BEGIN 
1$ LIBSSIGNAL ( $_LSTERR, 0, .STATUS); 
1 RLSTFAB B CFA Ott = frué : 
i ah 
’ 4 END ELSE “laseienns Gat, inoue. 0, .STATUS); 
4 
eae 
8 1 


1197 


<z 
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RIGHTSMAN 16-Sep-1984 2:23:14 AX-11 Bliss-32 V4.0-74 Pa 44 
WOen 000 UAFSDISPLAY_RIGHTS = Display rights held by us 12-808 7 Og: 38: 15 YOAF SREIRIGHTSMAN B32, 9° 10) 
A ae ee ‘iye) 
46 E A BLBS § RDB_LIST_FLAG, 5$ : 1344 : 
DD D PUSHL R + 1277 : 
04 OOO8F CLRL  =(SP) : ; 
55 DD 00091 PUSHL RS : ; 
64 03 FB 93 CALLS #3, LIBSSIGNAL : ; 
04 9 RET + 1270 ; 
07 A3 9F 00097 3$ PUSHAB HOLDER + 1282 : 
00000000v 09 a, O9A CALLS #1, UAFSWRITE_RIGHTS : ; 
¥ D Al MOVL RO. STATUS : ; 
¢ E AG BLBS RO, 4$ > 1283 : 
6 : E A7 LBS §RDB_LIST_FLAG, 8$ ; 1284 : 
0 DD OOOAA PUSHL RO : 1291 ; 
ze D4 OOOAC CLRL. = =(SP) : ; 
55 DD OOOA PUSHL : ; 
64 03 FB 000B ALLS #3, LIBSSIGNAL : : 
0190 C2 9F 000B3 4$ PUSHAB SD_USER + 1294 ; 
66 o1 FB 00087 CALLS #17 CLISPRESENT : ; 
72 0 €9 OOOBA BLBC =_-aRO,.-:«O118 : ; 
01 0D 0008D PUSHL #1 + 1297 ’ 
0190 C2 9F OOOBF PUSHAB SD_USER : ; 
000000006 09 9 FB 900¢3 CALLS #27 PARSE_WILD : : 
6 DO OOOCA MOVL RO, STATUS F : 
oF 50 £8 000CD BLBS RO. 6 ; : 
0 6¢ D9 00000 MOVL STATUS, RO + 1301 ; 
3¢ 63 E8 00003 5$ BLBS § RDB_LIST_FLAG, 8$ ; 1298 3 
50 DD 00006 PUSHL : 1305 ; 
ze D4 00008 CLRL. =(SP) : : 
55 DD OOODA PUSHL : : 
64 03 FB 000DC CALLS #3, LIBSSIGNAL : : 
000000006 00 D4 OOODF 68: CLRL. —- FOUND_ MATCH : 1307 : 
00000000v 00 9F OO0ES PUSHAB UAFSDISPLAY_RIGHTS_RECBUF : 1308 ; 
000000006 00 01 FB OO0E CALLS #1, WILD_USER F F 
68 0 DO OOOF MOVL RO, RMSERR : ; 
37 50 £8 000F BLBS =R : : 
00018282 BF 68 01 000F8 CMPL RMSERR, #98994 + 1311 ; 
OB 12 OOOFF BNEQ : ; 
000000006 8F DD 101 PUSHL #UAF$_BADSPC : 1312 : 
64 01 FB 00107 CALLS #1, LIBSSIGNAL : : 
23. 11 OO10A BRB 118 : : 
50 62 DO 9919¢ 7$ MOVL STATUS, RO : 1316 3 
14 63 £9 0010F BLBC RDB_LIST_FLAG, 108 : 131 : 
30 DD : ie 8$ PUSHL RO : 1316 : 
E 04 0011 CLRL. = =(SP) : : 
000000006 8F DD 00116 PUSHL HUAFS LSTERR : ; 
64 3 EB 11¢ CALLS #3, LTBSSIGNAL : ; 
00c1 (2 80 8F ; 11F 9S BISB2 #128, RLSTFAB+S : 1317 ; 
4 00125 RET > 1315 ; 
50 DD 001 6 10$:  PUSHL RO : 1320 ; 
D4 001 CLRL = = (SP) ; : 
; DD 0012A PUSHL R : : 
64 FB 10C CALLS #3, LIBSSIGNAL : F 
9 ES OOlOF 11$ BLBC =. RDB bist FLAG, 128 : 1334 : 
000000006 8 DD 001 2 PUSHL UA RLSTMSG > 1325 ; 
64 1 FB 1 CALLS #1, LYBSSIGNAL ; ; 
04 00138 128: RET : 1328 ; 
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; Routine Size: 316 bytes, Routine Base: SCODE$S + 081D 


; 1338 1329 1 


«SS 
RIGHTSMAN 16-Sep-1984 96:63:14 AX-11 Oh ite re Hab le Page 46 
v04-000 UAFSDISPLAY_RIGHTS_RECBUF = Display ids held 14-Sep-1984 13:21:18 UAF .SRCJRIGHTSMAN.B32; (11) 
: 1 40 0 XSBTTL ' UAFSDISPLAY_RIGHTS_RECBUF = Display ids held’ 
51 ag 1 : 1 GLOBAL ROUTINE UAFSDISPLAY_RIGHTS_RECBUF = | 
> 134 1 BEGIN 
Se a 
: 46 é i FUNCTIONAL DESCRIPTION: 
: 1348 1338 2 | Display the identifiers which are held by the identifier 
3: 1349 1339 ! which Sorrespergs to the UIC in the current 
; : 4 1279 record in RECBUF 
: 132 1363 i INPUTS: 
3 32 1348 ! 
ee i 
: 1338 1346 : IMPLICIT INPUTS: 
: 1358 1348 2 ' RECBUF must contain a valid UAF record 
3 1323 1308 § RABPTR must point to the output RAB 
: 1361 1331 3 ! OUTPUTS: 
Ba betes 
: 1365 1338 ‘ IMPLICIT OUTPUTS: 
eet 
: 1369 1359 ; ROUTINE VALUE: 
Beet | 
; 1378 1368 ; | SIDE EFFECTS: | 
: 1375 1365 i none 
> 1376 1366 2 i-- 
1398 1368 | 
: 1379 1369 BIND 
; 1330 1329 HOLDER_VEC = HOLDER : VECTOR ([2,LONG J] ; | 
; 138¢ 137@ @ FOUND_MATCH = TRUE; 
; 1384 139% 
3; 1385 1375 ! First see if the identifier is there and get it's name. | 
3 1336 13/8 If it doesn't exist then just return 
; 1388 1378 UAFSBUILD_HOLDER() ; ! build a holder from the UIC in RECBUF | 
: 1390 1380 2 STATUS = $IDTOASC ( ID = ,HOLDER_VECLO) ) ; 
+ 1391 1381 2 IF NOT .STATUS | 
:1 % 1 ‘ THEN RETURN TRUE ; 
: 1390 1382 5 | 
: 1395 1385 i Now call the display routine 
: 1396 1386 ! 


; Routine Size: 66 bytes, Routine Base: S$CODE$S + 0959 


; 1402 1392 1 


] 
a | 
RIGHTSMAN ibese 1984 02:23:14 AX-11 Bliss-32 V4.0-74 Pa 47 Rit 
VOen000 UAFSDISPLAY_RIGHTS_RECBUF = Display ids held 12-08-13 Og: SF: 18 HOA SROIRTEHTSMAN: B32, ge 47 vos 
3 1397 1387 STATUS = UAFSWRITE_RIGHTS ( HOLDER ) ; 
: 1338 1 gf a | 
: 1399 1389 2 RETURN .STATUS ; 1 
; 1400 1390 1 
: 1401 1391 1 END; ! End of UAFSDISPLAY_RIGHTS_RECBUF } 
1 
1 
HOLDER_VEC= HOLDER 
000¢ .ENTRY UAFSDISPLAY_RIGHTS_RECBUF, Save R2,R3 ; 1332 
33 00000000' 9 gE 0009 MOVAB HOLDER_VE Y-A4 3 3 | 
2 00000000' 4 000 MOVAB STATUS? ; | 
000000006 00 1 D 0019 MOVL #1, FOUND_MATCH : 1372 } 
FAFO CF 90 FB 0001 CALLS #0, UAFSBODILD_HOLDER 3 137 1 
—E 7C 0001C CLRO 0—_ = ( §P) : 1380 1 
7E 7C OOO1E CLRQ -(SP) : 1 
re D4 909 0 CLRL =s_ = (SP) : 1 
63 DD 00022 PUSHL HOLDER_VEC ; | 
000000006 00 06 FB 00024 CALLS #6, SYSSIDTOASC : 1 
62 50 DO 00028 MOVL RO, STATUS ; 1 
04 62 £8 O00¢F BLBS STATUS, 1$ : 1381 1 
50 01 pO 00031 MOVL #1, RO : 1382 1 
04 00034 RET : 1 
53 DD 00035 1$ PUSHL R3 : 1387 } 
00000000v 00 01 FB 00037 CALLS #1, UAFSWRITE_RIGHTS : 1 
62 50 DO 0003E MOVL RO, STATUS : 1 
04 00041 RET : 1391 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
{ 
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IMPLICIT INPUTS: 


RIGHTSMAN 16-Sep-1984 1:23:14 AX-11 Bliss-32 V4.0-74 P 4 
voor UAFSFIND_UIC = get uic from UAF record 10-Sep-19 4 99:53:18 One SRPIRL ENT SMAN O3o07 age 458 
1404 33 1 XSBTTL ' UAFSFIND_UIC = get uic from UAF record’ 3 
4 95 1 GLOBAL ROUTINE UAFSFIND_UIC = . 
4 9 BEGIN $ | 
4 9 lee 3 | 
4 9 ' 3] 
4 3 i FUNCTIONAL DESCRIPTION: 3 
2 4 Build an identifier fron the UIC in the current UAF record s 
0 INPUTS: i | 
§ none 3 1 
0 3: 1 
*. 
4 
s 4 


i 
! 

i 

; 

; 

; 

i 

' 

i 

} RECBUF must contain a valid UAF record 
; OUTPUTS: 

None 

; IMPLICIT OUTPUTS: 

IDENT is initialized 

ROUTINE VALUE: 

Always true 

SIDE EFFECTS: 

. 
a 


WN "SO OONOUVES WN SOO ODNOUE WN" O0O-~ 


IU WAAAY 3 & BB OOOCOO 


a a ad a td td a td = 8 dd + wd 2 = 8 2 8 8 


AAWWANAWIAIPINIPONPUNPINYINPINPYINIDYD 2 2 OOO OS SS S| OOOO 


a ed ad td a = = = = as = 2 La a + 4 


Fat al ek el eh a ek ee ae ae ae eae ae ae ee kw 
AUF WN (OC OONA UNE WN (OOD NOAOUS WN OVO ONAY SWN ("OOOVNOUS 


Bee Se Ge Ge Se Be Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae Se Se Se Sete Se tease 


none 
i : 
59 FOUND_MATCH = TRUE; 
41 IDENTCUICSV_FORMAT) = UICSK_UIC_FORMAT ; 
4g IDENTCUIC$V~GROUP]. = .RECBOF COAF$W_GRP) ; 
45 IDENTCUICSVZMEMBER] = .RECBUF CUAFSW"MEM) ; 
45 RETURN TRUE ; 
47 1 END ; ! End of UAFS$FIND_UIC 
009% 900 ENTRY UAFSFIND_UIC, Save R2 ; 1395 | 
5 00000000" 9 f 00 MOVAB IDENT, R ; | 
000000006 p 0 MOVL #1, FOUND MATCH > 1428 
03 A F BA 19 BICcB2 #192, | 143 : 1430 
02 A2 OE 0 0900006 6 F 1 INSV RECBUFs3 , #0, #14, IDENT#2 > 1431 
$ G B 1F MOVW RECBUF + * IDENT > 1432 
3 MOVL #1, RO : 14 
4 RET : 14 


RIGHTSMAN 16 7:23:14 AX=11 Bliss-32 V4.0-74 Pa 9 
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- 


; Routine Size: 42 bytes, Routine Base: S$CODES + 0998 


; 1448 1437 1 


———— . = 
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RIGHTSMAN 16-Sep-1984 02:23:14 YAX=11_BLiss-32_v4.0-74 p 
voe-000 UAFSGRANTIDENT = Add RDB holder record 14-Sep-1984 49:31:18  LUAF-SRCIRIGHTSMAN- B32; 29°43) 


; 16 ° 1038 1 ZSBTTL * UAFSGRANT_IDENT = Add RDB holder record ' ; 
: 14 g 1440 1 GLOBAL ROUTINE UAFSGRANT_IDENT: NOVALUE = ; 
: 14 1441 2 BEGIN : 
: ieee aes § i 
1436 1444 | FUNCTIONAL DESCRIPTION: : 
> 1458 1446 i Add a holder record to the rights data base for the specified ; 
; 1459 144 ! identifier. This routine is invoked via the GRANT/IDENT command. ° 
> 1460 1448 i ; 
: 1461 144 ! 3 
3 1296 1450 ' INPUTS: 3 
: 146 1451 i : 
1088 1288 § i sc 
; 1466 1434 IMPLICIT INPUTS: 3 
: 1468 1436 ¢ | Command Line : 
: 1470 1458 2 | OUTPUTS: : 
: 14671 1459 ! F 
i eer i ie : 
> 1474 1468 i IMPLICIT OUTPUTS: : 
> 1475 146 i : 
i oe i : 
: 1478 1466 i ROUTINE VALUE: : 
3: 1479 146 ! $ 
eh og te 1h : 
; 148¢ 1470 ; SIDE EFFECTS: : 
> 1484 1478 i rights data base is modified ; 
> 1485 147 i ; 
: 1486 1474 — : 
> 1487 1475 : 
: 1089 1299 5 Locat 
+ 1490 1478 ID_NAME_DESC : STATDESC, ; 
+ 1491 147 1D” NAME ~BUF F : VECTOR C KGBSS_NAME, BYTE J , : 
: 1498 1480 USER_NARE_DESC : § DES, : 
; 1493 14 USERNAME ~BUF F : VECTOR C KGBSS_NAME, BYTE J) ; : 
: 1495 14 BIND ; 
: 1496 14 HOLDER_VEC = HOLDER : VECTOR [2,LONG) ; | : 
: 1038 i a a : 
: 1499 14 i First we will get the identifier name. | : 
3; 1500 14 ' This is a requ req poreneter so it is guaranteed present : 
; 1308 1483 ; We will use the rights data base to translate the name : 
; i ‘ 1491 CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; | : 
51 8 1298 CHSCOPY ( .TOKENLEN, .TOKENPTR, ZC‘ ', KGBSS_NAME, ID_NAME_BUFF ); ; 
> 1506 1494 2 ID_NAME_DESCCLENGTH) = MIN ( .TOKENLEN , KGBSS_NAME )~; | : 


5 
RIGHTSMAN 18-se =1984 02:23:14 AX-11 Bliss-32 V4.0-74 Pa 
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; 1507 1495 ID_NAME_DESCCPOINTER] = ID_NAME_BUFF ; $ 
.| er | 
: 1510 1498 i The user id parameter is required so we are guaranteed ; 
; 1511 149 ' that it is present. We will get the parameter before finishing : 
s 1 i 1 ot ! up with the ID name so that we have it in case we must signal an 3 
3 ' 17 : os : error : 
: 1515 1 88 PARSE_WILD( S$D_TOKEN2, TRUE ) ; ; 
s 1218 1504 CHSCOPY ( .TOKENLEN, ,TOKENPTR, %C‘ ', KGBSS_NAME, USER_NAME_BUFF ); : 
; 151 1505 @ USER_NAME_DESCCLENGTH) = MIN ( .TOKENLEN , RGBSS_NAME )~; ; 
: 1518 1306 ¢ USER NAME PESCLPOINTER] = USER_NAME BUFF ; ; 
3 1519 1 HOLDER_vEC = 0; 3 
. nt ae 7 
: 15 ; 1849 i Now finish up with the ID name ; 
; 1394 131) : Convert the ID from ASCII to a longword format : 
: 1525 P 1848 STATUS = SASCTOID ( NAME = ID_NAME_DESC, : 
: 13 $ 4 1818 ATTRIB = ope. 
: 1528 1516 2 IF NOT .STATUS ‘ ; 
: 13 3 1348 THEN BEGIN 
: 1531 1519 LIBSSIGNAL(UAF$_GRANTERR, 2, ID_NAME_DESC, USER_NAME_DESC, .STATUS); ; 
H 1338 1520 RETURN ; 3 
: 1882 1353 wee 
> 1535 15 : IF .IDENTCUICSV_FORMAT] NEQ UICSK_ID_FORMAT ; 
: 1339 1358 oe BEGIN ; 
: 1338 1526 LIBSSIGNAL (UAF$_NOTIDFMT); ; 
3; 1539 1527 RETURN ; 3 
a ig os : 
: 1348 1530 2 IF (.IDENT LSSU UICSK_FIRST_ID) OR ; 
: 154 1531 (, IDENT GTRU UICSKILAST_ID) ; 
: 134s 1338 EN BEGIN 
> 1546 1332 LIBS$SIGNAL (UAF$_IDOUTRNG) ; : 
3 1547 1535 RETURN ; g 
3; 1548 15 END ; 3 
en ae 7 
: 1383 12 § i Now finish parsing the user ID entered : 
3 1336 1540 ! We will use the rights data base to translate the name : 
3; 155 1541 : unless it was given in UIC format. If it is a UIC then F 
3 1554 1366 ' we will build a holder and make sure that it is in the rights FY 
3 132? 136 ' data base. é 
: 1389 1345 § | 
; 1358 1346 if UIC FLAG : 
; 1360 1348 BEGIN ; 
: 1561 136 LOCAL : 
3 1296 1550 TEMP_NAME _DESC : era TDE SE ; 
; 156 1551 TEMP _NAME _BUF F : VECTOR C KGBSS_NAME, BYTE ) ; 3 


H 5 


RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 Pp 
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1564 ‘ IF NOT PARSE_UIC ( HOLDEREUIC$V_ GROUP] 
65 ; HOLDERCUICSV-MEMBERS, 
THEN 


BEGIN 
PF 8SS1GNAL(UAFS_UICERR, 2, .TOKENLEN, .TOKENPTR); 
RETURN ; 


END ; 
HOLDERCUICSV_FORMAT] = UICSK_UIC_FORMAT ; 
Make sure that the holder exists and get it's ASCII name 


TEMP_NAME_DESCCLENGTH] = KGBSS_NAME ; 
TEMP-NAME-DESCCPOINTER] = TEMP_RAME BUFF ; 
STATOS = SIDTOASC ( ID CioeR_vecto) 
EMP_NAME_DESCCLENGTH), 
EMP"NAME-DESC ) ; 


= . 
NAMLEN = T 
NAMBUF = T 


vv 


IF NOT .STATUS 
THEN 


BEGIN 
L1BSS1GNAL (UAF$_GRANTERR, 2, ID_NAME_DESC, USER_NAME_DESC, .STATUS); 
END 


BUSA RUN OOO PUI OD oo 


oo 
oO 


BEGIN 
CHSCOPY (.TEMP_NAME DESCCLENGTH], .TEMP_NAME_DESCCPOINTER 

C*' "7 .USER_NAME DESCCLENGTH], .USER NAME_DESCCPOINTER) ) ; 
USER_NAME_DESCELENGTHI = .TEMP_NAME_DESCCLENGTA) ; 


END 
ELSE 


IF .STR_WILD 
THEN 


SSSLESEALLLS 


BEGIN 
LIB$SIGNAL (UAF$_WLDNOTALWD) ; 
ial 


t* al * al * al * ah AL Ab Ab Ab Ab Ab AL AL AL AL AD AD AD AL AD AD AD AD A AD AL AROS 


ooo 
Wr 


' 
Convert the user ID from ASCII to a longword format 
STATUS = SASCTOID ( NAME USER NAME DESC, 


HOLDER_VE 
ATTRIB = 0) ; 


vv 
ee ee ee ee ee ee ee ee ee ee ee 


SESsaF 


rR NE DARD 46 het tr te ee PRP PRR RPS SF 8 8 A 


IF NOT .STATUS 
THEN 
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610 

611 BEGIN 

oig LIBSSIGNAL(UAF$_GRANTERR, 2, ID_NAME_DESC, USER_NAME_DESC, .STATUS); 
61 RETURN ; 

BE al 

616 IF .HOLDERCUICSV_FORMAT] NEQ UICSK_UIC_FORMAT 

61 THEN 

618 BEGIN a 

61 6 LIBSSIGNAL (UAFS_NOTUICFM®;; 

620 608 RETURN ; 


5 
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1494 


; 16 1 1698 END ; ; 
: 16 5 1 9 END ; ; 
ee : 
: 16 6 1614 ' ; 
3 5 1912 Set the resource attribute if /RESOURCE was specified. : 
> 1629 1819 if CLISPRESENT (SD ATTRIBRESOURCE) : 
> 1630 1618 THEN ATTRIBUTES = KGBSM_RESOURCE ; 
: 16 1 161 ELSE ATTRIBUTES = 0 ; 3 
: 16 7 ig ° : 
3 YS : 1? § } Now call the service to perform the addition : 
: 16 P 1604 2 STATUS = SADD_HOLDER ( ID = . IDENT, ; 
: 16 P 1625 HOLDER = HOLDER’, ; 
: 16 8 16 : ATTRIB = .ATTRIBUTES ) ; : 
: 1640 1628 2 IF NOT .STAT : 
: 18¢3 16 4 THEN UTBSS1GNAL (UAFS. GRANTERR, 2, ID_NAME_DESC, USER_NAME_DESC, .STATUS) : 
: 164 1631 BEGIN ; 
> 1644 16 é RIGHTSLIST_MODIFIED = TRUE ; : 
; 1645 16 ; L1B$S1GNALTUAFS_ GRANTMSG, 2. ID_NAME_DESC, USER_NAME_DESC); : 
; 1609 1635 : 
: 1648 16 : RETURN ; : 
> 1649 16 ; 
> 1650 1638 1 END ; 'End of UAFSGRANT_IDENT 2 
HOLDER_VEC= HOLDER ; 

-EXTRN SYSSADD_HOLDER 3 

00000 .ENTRY UAFSGRANT_IDENT, Save R2,R3,R4,R5,R6,R7,R8,-; 1440 : 

R9,R10,RIT : : 

B 000000006 02 MOVAB LIBSSIGNAL, R11 : : 

A 90 6 MOVAB TOKENPTR, R10 ; 3 

9 G MOVAB TOKE : : 

2 9 00! MOVAB STA Tus, R : : 

_ 5 MOVAB PTD Ot : : 

70 AE 010€00 mov. at ish, st 1D ,NAME_DESC ; 1478 ; 

48 AE 0100000 MOVL ai7e9402 20 USER. NAME _DESC : 1480 3 

4 C CLRL —CUSSE DESC +S : ; 

0000000 G F PUSHAB TOKEADSC > 1491 ; 

1 3 PUSHAB ak EN1 : : 

000000006 00 CALLS ' rT SceT VALUE F : 

MOVZWL TOKEN LEN. ni : 1493 ; 

MOVE TORENE : ; 

20 20 é MOVES R6, thos: #32, #32, 1D_NAME_BUFF ; 


20 


CHPU RO, #32 


voe~000 UAFSGRANT_IDENT = Add RDB holder record ibse 31 3ke 98: 73 YOR eR AN 830; Page 43) 


14 
18 AF.SRCIR MAN.B32; 
1 BLEQU 1 P ; 
50 Hi 08 MOVL a2, RO : ; 
70 AE : 1$ MOVW RO, ID_NAME_DESC ; : 
74 «AE 50 AF E MOVAB ID.NAME_BUFF, ID_NAME_DESC+4 : 1495 ; 
D PUSHL }- + 150 ; 
0188 ¢ F 0007 PUSH $0.10 EN2 : : 
000000006 B 0007 CALLS @ PAS “WILD : : 
6 g 42 MOVZWL TOKENL + 1504 ; 
A p MOVL TOKEN ER’ : ; 
20 20 6 in 36 C 4 MOVES R6, (RO). #32, #32, USER_NAME_BUFF : ; 
D MOVL Rb, + 1505 ; 
38 ; CHP no. #32 : : 
50 09 93 MOVL $2, RO : ; 
48 AE ; 96 2% MOVs USER_NAM : 
4C AE 28 A é 9A MOVAB USER NAME BUFFS eaceR _NAME_DESC+4 : 15 
4 aA? D oF CLRL HOLDER, vEt+4 : 150 
7E D4 OOOA2 CLRL + 1515 
08 A? 9F OO0A4 PUSHAB ipent ; 
78 AE 9F O00A7 PUSHAB 1D NAME ESC ; 
000000006 F AA CALLS #37 eVESASCTOID ; 
8 0» B1 MOVL RO. STATUS ; 
0 0 F B4 BLBS + 1516 
00F8 31 00087 BRW 16 : 
02 0B A? 02 FD BA 3$: CMPZV #6, #2, IDENT+3, #2 + 1523 
000000006 8F DD PUSHL  #UAFS$_NOTIDFMT > 1526 
1¢ 11 000¢ BRB $ : 
50 08 A? DO OOOCA 4$ MOVL IDENT, RO + 1530 
80010000 &F 50 D1 C RO, #-2147418112 : 
09 1F 0000 BLSSU : 
SFFFFFFF © 8F 0 01 0000 CMPL RO, #-1879048193 + 1531 
8 1B 000D BLEQU ; 
000000006 8F DD O00EO 5$: PUSHL mis IDOUTRNG + 1534 
7 11 DOES 68: BRB 10$ ; 
63 900000006 00 E9 O00E8 7$: BLBC UIC FL Ag, 9 + 1546 
20 AE 010€009 F DO OOOEF MOVL 694720, F emp NAME _DESC : 1550 
4 AE 04 000F7 CLRL =‘ TEMP_NAMEDESC+% F 
or DD OOOFA PUSHL # + 1553 
7 DD OOOFC PUSHL 7 : 
02 A? OF Fe PUSHAB HOLDER+2 > 155 
000000006 00 03 FB CALLS s , PARSE_UIC : 155 
10 £8 001 BLBS - : 
6A pp 1 PUSHL FORE : 1557 
7E 9 3¢ 001 MOVZWL 19 K EMLEN, -(SP) : 
2 DD 001 PUSHL ; 
000000006 8F DD 0011 PUSHL re _UICERR : 
00co 31 0011 BRW : 
03 A? co. OBF OBA 118 8$ B1CB2 i. HOLDERS > 1560 
30 AE 0 80 001 MOV P_NAME_DESC > 1564 
4 AE E 9E 00124 MOVAB “BUFF; TEMP_NAME_DESC+4 : 1 65 
—E 7C 00128 cLRa = :1 
7E D4 OD10A CLRL = ; 
3c AE 9F OO10C PUSHAB Tene. foe : 
AE F OO10F PUSHAB TEMP”NAME “DESC : 
67 dD 00132 PUSHL HOLDER_VEC 3 


RIGHT MAN 
v04- UAFSGRANT_IDENT = 


000000006 


48 AE 20 eh 


48 


000000006 


co 


000000006 
FC 


000000006 


000000006 


; Routine Size: 479 bytes, Routine 


; 1651 1639 1 


0 
es 36 
BE 20 AF 
AE 36 a 
08 099000006 ‘ 
=e 

00 
ip : 

D 
fF 03 +4 
000000006 rt 
6B 1 
0150 c8 
00 4 
06 0 
A7 4 
FC t 
FC A7 
57 
08 A7 
00 93 
68 0 
i 30 
4C AE 
78 ag 
000000006 i 
68 5 


00 


>o 
m— 


48 
os 


> 
rom 


000000006 BF 
68 4 


Add RDB holder record 


NOT OOOO "OC OOUOMI "OO TC9O-9O MOOS —OMo"OTIo-OoMmM—W rmon 
WOO *"OL DOS **OWOOWOCS £0009 *FWOWWOOT"O£S-9 0-0 -~oow 


COQOoooooQoQoooooooQoooooooQoooQooQoQoQoQoQoQoQoQoQoQoQoQoQoCoQooooooe 


oO 


SCODES + 09C5 


be fw fw aw fa fw few fw lw alae lo lolololelolololololololoelolololeoleolelolelelololeleololololololoiojo) 


ae a Ho te th a a tt a i nt a ts tt a 


VQIooereowwweee,r>>>> PP 4 hy ert RN Se ee 


on 


16$: 


17$: 


18$: 


AX=-11 BLi 
UAF ..SRCJR 


SSIDTOASC 


s-32 V4.0-74 
GHTSMAN.B32; 


H EDER#S, #192 


MUAFS_NOTUICFMT 
#1, LIBSSIGNAL 


SD_ATTRIBRESOURCE 
#17 CLISPRESENT 
RO, 14$ 

#1. ATTRIBUTES 
15$ 


ATTRIBUTES 
ATTRIBUTES 


R? 

ENT 
#3, SYSSADD_HOLDER 
RO. STATUS 
RO, 178 
USER NAME _DESC 
1D_NAME_DESC 


#2 
syArs GRANTERR 
#5, LIBSSIGNAL 


— 


#1, RIGHTSLIST_MODIFIED 
USER_NAME_ DESC 
1D_NAME_DESC 


#UAF S$ _GRANTMSG 
#4, LIBSSIGNAL 


Pe Se Se Se Se Se Ge Se Se Se Se Be He Se Be Se Be Se Se Se Se Be Se He Se Be Se Ge Se Se Fe Ge Se Fe Se Se Se Se Fe Se Be Se Se Se Se Se Se 


1638 


+ MAN 


1653 
1654 
1655 


AAO 


OOno 


SEsETESES 


PAAPACOAAAAS 
Se 
ONOULWN—O”O 


rt ee 


wn 


a et a ht a — 4 4 tb — > bs a a a a a as ng Ls — 9 ts a 


GOOOonon 
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Routine Size: 


1696 
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! re 1 ZSBTTL * UAFSRECORD_FOUND = Flag that the group is not empty' 
1 t 1 GLOBAL ROUTINE UAFSRECORD_FOUND = 

164 BEGIN 

1644 ++ 

196? : 

1968 FUNCTIONAL DESCRIPTION: 

1648 : Flag that a particular group is not empty. This is used to 
1903 determine if a group identifier should be removed. 
193) ; 

1 § ! INPUTS: 

165 ; 

1654 ‘ none 

1655 : 

1928 ! IMPLICIT INPUTS: 

165 } 

1938 : none 

165 : 

1660 ! OUTPUTS: 

1661 ; 

1066 : None 

166 : 

1o¢e IMPLICIT OUTPUTS: 

1606 FOUND_MATCH flag is set TRUE 

1008 } ROUTINE VALUE: 

1670 Always false so that the WILD_USER loop will be exited after first match 
1676 ! SIDE EFFECTS: 

167 ; 

1674 : none 

1675 leo 

1976 

167 

1978 FOUND_MATCH = TRUE; 

167 

1939 RETURN FALSE ; 

1682 END ; ! End of UAFSRECORD_FOUND 


0000 000 -ENTRY UAFSRECORD_FOUND, Save nothing 
000000006 00 1 00 0000 MOVL #1, FOUND_AATCH 
0 e bby am 


12 bytes, Routine Base: S$CODE$ + OBA4 
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Voen080 UAFSLIST_IDENT = Display rights identifiers 12=808= 1382 96:37:18 UAF .SRCIRIGHTSMAN.B32; . «135 
38 684 } ZSBTTL * UAFSLIST_IDENT = Display rights identifiers ' 


=" 
o 
oO 


_ 1 

3 1 16 

; 1700 16 § 1 GLOBAL ROUTINE UAFSLIST_IDENT : NOVALUE = 
3 i 1 1? BEGIN 

3 1708 16 § ' 

3 Ae 1999 FUNCTIONAL DESCRIPTION: 

3 1706 1996 ! Write all identifiers to a Listing file. This routine is invoked 
3: 1707 169 ! via the LIST/IDENT command 
3; 1708 1694 ! 

3 1709 1695 ' INPUTS: 

3 1710 1998 ! 

3 1711 169 ! none 

: ar 1698 ‘ 

3 171 1699 ' IMPLICIT INPUTS: 

3 17146 1700 ! 

3; 1715 1701 ! command Line 

3 1716 1706 ! 

3 1717 170 ' OUTPUTS: 

: 1718 1704 ! 

3 1719 1705 ! None 

: 1720 1706 ! 

3 7s) 1707 ' IMPLICIT OUTPUTS: 

3 17 . 1708 ! 

3: 172 1709 ! none 

: ise 1710 ! 

: 1725 1711 ! ROUTINE VALUE: 

; 1756 ar ! 

3; 1727 171 ! none 

: 1728 1714 ! 

: Ho 1715 ' SIDE EFFECTS: 

3; 1730 1716 ! 

3 1731 1717 ! A Listing file is created 

3 17 ; 1718 ! 

3 17 1719 leo 

3: 1734 1720 

3 1735 1721 

3: 1736 17 ; ! 

3 if i Ht ? | Create the Listing file 

3; 1739 1725 RLSTFAB CFABSV_DLT] = FALSE ; 

> 1740 1726 3 IF RMSBAD (SCREATE (FAB = RLSTFAB)) 
3: 1741 1727 THEN 

: Ho 1728 BEGIN 

3 174 1729 LIBSSIGNAL(UAFS_LSTERR, 0, .RMSERR); 
3: 1744 1730 RETURN ; 

3 1745 1731 END ; 

3 Ho 17 ¢ 

3 174 17 IF RMSBAD ( SCONNECT ( RAB = RLSTRAB)) 
@ Ho | 1734 THEN 

: 174 1735 BEGIN 

3; 1750 17 LIBSSIGNAL(UAFS_LSTERR, 0, .RMSERR); 
: 172) 17 RETURN ; 

3 17 ¢ 17 3 END ; 

3; 175 17 

3; 1754 1740 ! 


NI 


kk kk tk tk 
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NOUS WN (OO OONOUNE WN" OOONOW 
i kd dt 
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SIN NNN NOOO OOO 


N 5 
16-Sep-1984 02: 
UAFSLIST_IDENT = Display rights identifiers 13288871382 98: 


3:14 AX-11 Bt =32 V4.0-74 
1:18 UAF .SRC TS 


$$ 
RIGHTSMAN.B32; 


Set the correct RAB for the output and flag a List operation 


RABPTR = RLSTRAB ; 
RDB_LIST_FLAG = TRUE ; 


; Set the type of display. 


if gS ong aad (SD BRIEF) OR (NOT CLISPRESENT (SD_FULL)) 


SHOW_ID_FOLL = FALSE 
ELSE SHOW_ID_FULL = TRUE ; 


Now call the common routine for show or List 
UAFSDISPLAY_IDENT () ; 


SDISCONNECT ( RAB = RLSTRAB 
SCLOSE ( FAB = RLSTFAB ) 


RETURN 


1 END ; 


85 
000000006 


000000006 


000000006 


000000006 
00000000" 


So 
o 


OM T.OrMn "OOOO "IOITIOMI NOMI "ODMooo— 
OoOooooco 


“29 OFS PUM 
WSO FWO fIOWS 
SSOSSSSSSSSSSSSSSSSSSSososososesS 


OOCCCOCOCOCOOCSCOOCOOOoOooooo 
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-EXTRN 
-EXTRN 


! End of UAFSLIST_IDENT 


SYSSCREATE, SYSSCONNECT 
SYSSDISCONNECT, SYSS$CLOSE 


#1, SYSSCREATE 
RO, RMSERR 
RO, 1$ 


R 

#1, SYSSCONNECT 
RO. RMSERR 

0; 28 

RM>SRR 

-(SP) 

a LSTERR 
#3, LIBSSIGNAL 


RLSTRAB, RABPTR 
#1, RDB LIST_FLAG 


DBRIE 

17 CLISPRESENT 
RO. 

SD “FULL 

#17 CLISPRESENT 
SHOW_1D_FULL 


ae 


; Routine Size: 


3: 1778 


6 
168 =1984 02:23:14 
UAFSLIST_IDENT = Display rights identifiers 1 78671382 9g:59:18 


145 bytes, 


1764 


1 


FEFO 

BEC 
000000006 
000000006 


Routine 


C2 
CF 
00 
00 


BO A 
0 


2 
1 


SCODES + OBBO 


$$: 


AX-11 Bt 
UAF .SRC 


#1, SHOW ID FUL 
Re UAF SBISPLAY 


6 
t A 
#1, SYSSCLOSE 


is 


L 
IDENT 


SYSSDISCONNECT 


s-32 V 
RIGHTSMA 


of oR OO OA Of OO PR AIR IPRIARIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIANIAIAIAINIANIAIAIAIAIAIAIA) 
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RIGHTSMAN 1b-5e 1984 02:23:14 AX-11 Bliss-3 
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1783 5 1 XSBTTL ' UAFSLIST_RIGHTS = Display rights held by user’ 
1 GLOBAL ROUTINE UAFSLIST_RIGHTS : NOVALUE = 
BEGIN 
lee 
FUNCTIONAL DESCRIPTION: 
Write git Sdeoy)tters held by a specified identifier 


2 V6.0-76 p 
SHAN B 3004 age 90 


— 
~~ 
— 


to a Listin ile. This routine is invoked 
via the LIST/RIGHTS command 

INPUTS: 
none 


IMPLICIT INPUTS: 
command Line 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
A Listing file is created 


CODOOWOONN NANA NNN 


PARA OGM IEA ROD e 


i] 
Create the Listing file 


RLSTFAB CFABS$V_DLT) = FALSE ; 
IF RMSBAD (SCREATE (FAB = RLSTFAB)) 


POP 2 a OOO 
DOOGCOCOCOOCCC CO OOOO OOO OW WW W000 09 0909 09 SI NINN NIN NNO OOOO 


OOO NOAULE WN $0 OO NOAU EWN 0 OD NOAUE WN 0 OD NOAM EWN 0 OONOU EWA OOOND 


BEGIN 
LIBSSIGNAL(UAFS_LSTERR, 0, .RMSERR); 
RETURN ; 
END ; 
IF RMSBAD ( SCONNECT ( RAB = RLSTRAB)) 
THEN 


Whororonoronery 


WN —O DONO UE Whe “OC VODNOUS WN -O0OOn 


We welded 


BEGIN 
LIBSSIGNAL(UAFS$_LSTERR, 0, .RMSERR); 
RETURN ; 


ee ead end ee el en ea ct eed ct ee ee ee ee et ce a ae ce ee a ee a ee ce ced ea cl ol cl el eel eel ce el eel ce ead cl et ect ee cel el cee el cee cl cl cell cal cael cl ell 
00000000 00 00 00 09 00 09 09 00 C0 G9 09 09 09 09 09 09 09 08 SINI SINISE 


Be So Se Se Be Se Be Se Be Se Be Se Se Ge Ge Se Se Ge Ge Ge Se Ge Fe Be Ge Se Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Ge Fe Ge Se Se Sess Se sias 


ee ee ee ee ee ee Le ee ee 
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SAE 


ves" 
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ys 
—_ 


WO OONOUS wo 


Se Se Se Ge Sete Ge Se Ge Ge Ge Se Se Ge ee Seas 


vtvtety $9 99999932887 
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; Routine Size: 


; 1854 


D 
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UAFSLIST_RIGHTS = Display rights held by user 19-808-1 38% 96: 3F 18 DAF SREIRIGHTSMAN: B32- 


! 
§ | Select the output RAB and flag a List operation 
5 2 RABPTR = RLSTRAB ; 
§ RDB_LIST_FLAG = TRUE ; 
3 ' 
0 
aH 
B32 
Hy 5 
B39 
838 


Call common routine to perform show or List 
UAFSDISPLAY_RIGHTS () ; 


SDISCONNECT ( RAB = RLSTRAB ) ; 
SCLOSE ( FAB = RLSTFAB ) ; 


RETURN ; 
1 END ; 'End of UAFSLIST_RIGHTS 


A 8 es se st a ss ts tt 


000c 00000 .ENTRY UAFSLIST_RIGHTS, Save R2,R3 
53 000000006 00 9€ 00002 MOVAB RMSERR, R3 
52 00000000' 00 9€E 00009 MOVAB RLSTRAB. R2 
BS A 80 BF BA 9010 BICB2 #128, RLSTFAB+S 
BO A2 9F 0001 PUSHAB RLS 
000000006 09 gi FB 00018 CALLS #1, SYSS$CREATE 
4 0 DO O0O1F MOVL RO. RMSERR 
OF 20 E9 000 2 BLBC ~—E_«aRO, 
2 DD 000 PUSHL R 
000000006 09 gi FB 00027 CALLS #1, SYSSCONNECT 
6 0 OD 00 . MOVL RO, RMSERR 
12 30 E8 000 BLBS sé 
: DD 00034 18: PUSHL RMSERR 
E D4 00036 CLRL. = (SP) 
000000006 8F DD 00038 PUSHL HUAFS LSTERR 
000000006 00 03 FB 00056 CALLS #3, LIBSSIGNAL 
000000006 00 62 oF 00046 2$: MOVAB RLSTRAB, RABPTR 
00000000" 0 1 90 00040 MOVB #1, RDB LIST FLAG 
FB8 CF 9 FB 00054 CALLS #0, UAFSDISPCAY_RIGHTS 
Dd 00059 PUSHL 
000000006 00 ~s! 01 FB tte CALLS #1, SYSSDISCONNECT 
000000006 00 of FB 9065 CALLS #i, SYSSCLOSE 


109 bytes, Routine Base: S$CODE$ + 0C41 
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! ZSBTTL * UAFSMODIFY_IDENT = Modify RDB record’ 
1 cok ROUTINE UAFSMODIFY_IDENT : NOVALUE = 

oe 

FUNCTIONAL DESCRIPTION: 


net ty a rights data base record. This routine is invoked 
via the MODIFY/IDENT command. 


INPUTS: 
none 
IMPLICIT INPUTS: 
command Line 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
Rights data base is modified. 


LOCAL 
NAME _DESC : STATDESC, 
NAME ~ BUF F : VECTOR KGBSS_NAME, BYTE] , 
NEW_VALUE : SBBLOCK (4], 
NEW"NAME_DESC : STATDESC, 
NEW"NAME _BUF F : VECTOR C°KGBSS_NAME, BYTE ) , 
# PTR = LONG 
OLD" IDENT Lot (4), 
CLRTATTRIBUTES LONG INITIAL (9) : 
SET~ATTRIBUTES LONG INITIAL (0) ; 


i First we will get the identifier name. 
! This is a required parameter so it is guaranteed present 


CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; 
CHSCOPY ( .TOKENLEN, .TOKENPTR, %C° *, KGBSS_NAME, NAME _BUFF ); 


z | 
RIGHT SMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 P 
voe~000 UAFSMODIFY_IDENT = Modify RDB record 10238021382 98:87:18 JAF -SROIRIGHTSMAN- 832: age 49} 


If it is explicitly negated in the command Line then 
clear it. If it is present but not negated then set it. 
If it is not specified then do nothing 


STATUS = CLISPRESENT ( SD_ATTRIBRESOURCE ) ; 


MON 


IF .STATUS EQL CLI$_NEGATED 
THEN CLR_ATTRIBOTES = KGBSM_RESOURCE 
ELSE IF .STATUS 


gt 9 AE peer Pbsnatee = MIN (_ .TOKENLEN , KGBSS_NAME ) ; 
at 2 NAME _DESCLPOINTER] = NAME_BUFF ; 

91 0 ' 

4 8 Convert the ID from ASCII to a longword format 

91 e STATUS = SASCTOID ( NAME = NAME_DESC, 

9 Pp = QLD IDENT, 

9 0 ATTRIB = 0 )°; 

9 0 IF NOT .STATUS 

9 0 THEN 

9 0 BEGIN 

9 0 LIBSSIGNAL(UAF$_RDBMDFYERR, 1, NAME_DESC, .STATUS); 
9 1 RETURN ; 

9 1 END ; 

: : 

3 Now find out what to do with the status attribute. ‘ 
9 1 

9 1 

2 1 

9 1 

9 

9 

9 

9 

9 
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THEN SET_ATTRIBUTES = KGBSM_RESOURCE ; 
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94 

94 ; : | 
+) } Now get the new name if one was specified | 
94 IF CLISGET_VALUE ( SD_NAME, TOKENDSC ) 

ee THEN 

948 * 3 NEW PTR = NEW NAME DESC ; 

94 3 CHSCOPY T .TOKENLER, .TOKENPTR, ZC‘ °, KGBSS_NAME, NEW_NAME_BUFF ); 
95 we WANE -DESCELENGTHD = MIN ( .TOKENLEN , KGBSS_NAME )~; 

32 ee WANE DESL POINTER] = NEW_NAME_BUFF ; 

95 ELSE NEW_NAME_PTR = 0 ; 
3 ) 
33 If a new ID was given then get it's value | 
9 4 IF NOT CLISPRESENT ( SD_VALUE ) | 
95 4 THEN 

960 4 ! 
362 } No new identifier value was specified 
96 4 NEW_VALUE = 0 

964 4 sf 

366 ELSE GIN 

ss ; 
968 5 ! /VALUE is there now determine what keyword was used | 
969 5 ! and interpret the data as appropriate. 


voec000 UAFSMODIFY_IDENT = Modify RDB record ifo3e aety 7 98: H:18 UAF SRE Rien ima AN: B3o84 Page 49) 


' First check for IDENTIFIER: 
if a VALUE ( SD _VALUE IDENTIFIER, TOKENDSC ) 


sah 
TMP_IDENT : LONG INITIAL (0) ; 


STATUS = $e Tval ( TAP_IDENT, LONGWORD_LENGTH ); 
IF ok ATUS 


wOOOOOOOOOOO 


PEGASO 
= 


DONS MLW OOONO! 


BEGIN 
perteeegtors 1, NAME_DESC, .STATUS); 


yt eet PP RP PDN Be | 
Wr" OC CONOuUluwn—o 


EN 
NEW_VALUE vics 


CSV_FORMAT]_ = UICSK ID ‘wes ; 
NEW VALUE ee 
IF T 3 


| 
| 
el “2° bdo08600" Ok BA 


co 
uw 
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oe 4 > 4 2» 2s ~~) 4 > 2 2s — 2) bs — 9 ss Ls > ss 2 2 2 


9 
96 
96 
‘ 
86 970 ° 
87 971 (NEW! VALU RU UICSK_LAST_ID) 
88 38 THEN” 
89 97 BEGIN 
990 974 LIBSSIGNAL (UAF$_IDOUTRNG) ; 
991 975 RETURN ; 
o36 376 3 
99 97 END 
994 978 ELSE 
995 979 BEGIN 
996 980 : 
997 33 ! Now check for UIC 
998 9 ¢ ! These two keywords are synonyms 
999 98 i 
000 984 if CLISPRESENT (SD_VALUEUIC) 
001 985 THEN IF NOT PARSE_WILD (SD_VALUEUIC, TRUE ) 
O08 ane THEN 
00 98 BEGIN 
004 988 LIBSSIGNAL (UAF$S_RDBMDFYERR, 1, NAME_DESC, .STATUS); 
5 989 RETURN ; 
990 END ; 
00 991 IF .UIC_FLAG 
ste 336 THER 
99 BEGIN 
994 IF .GRP_WILD AND NOT .MEM_WILD 
995 THE 


BEGIN 

. Wild cards are not allowed for group numbers 
LIBSSIGNAL (UAF$_NOGRPWILD); 

RETURN ; 
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The UIC format was used, parse it to fine the 
group and member number. 
ild card group and member numbers are allowed 


iF NOT PARSE_UIC ( NEW_VALUECUIC$V_GROUP) 
NEW. VALUE UICSV MEMBERS, 
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04 
04 
3% 
04 
04 
04 
3% 
3 
5 
; 
5 
5 
5 


5 
5 
8 
6 
5 
5 
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THEN 
itty 
LIBSSIGNAL(UAFS_UICERR, 2, .TOKENLEN, 
. TOKENPTRS ; 
am 
NEW VALUECUI SV, FORMAT] = UICSK_UIC_FORMAT ; 
4 ELSE 
BEGIN 
i A user name was specified. Get the UAF record 
for this user and pull the UIC out. 
if .STR_WILD 
THER 
e BEGIN 
6 ; Wild cards are not allowed for user specs 
é LIBSSIGNAL (UAF$_WLDNOTALWD) ; 
RETURN ; 
$ END ; 
FOUND_MATCH = FALSE ; 
$ IF RMSBAD ( WILD_USER (UAFSFIND_UIC)) 
8 BEGIN 
6 IF .RMSERR EQL RMSS$_RNF 
6 THEN LIBSSIGNALTUAF$_BADSPC) 
6 ELSE LIBSSIGNAL(UAF$-RDBMDFYERR, 1 
6 RAME_DESC, .RMSERR) ; 
RETURN ; 
; END ; 
UAFSFIND_UIC fills in IDENT 
NEW_VALUE = .IDENT ; 
4 END™: 
4 
END; 
END ; 
q 
i Finally find out if /HOLDER was specified. If it was 
! then get the owners UAF record and pull the UIC out of it. 
! ALSO, if the qualifier was specified we will call the SMOD_HOLDER 
i service instead of the SMOD_IDENT service 
if CLISPRESENT ( SD_HOLDER ) 
THEN 
BEGIN 
IF NOT PARSE WILD (SD_HOLDER, FALSE ) 
THEN RETORN ; 
IF UIC FLAG 
i BEGIN 


Page $3 
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IF 2 +4 WILD AND NOT .MEM_WILD 
BEGIN 


SSRE2S 
Sano 4 


; 4 3 
3 4 : 
: 7 : 
3 I Wild cards are not allowed for group numbers : 
: 7 LIBSSIGNAL(UAF$_NOGRPWILD); : 
; $3) 75 RETURN ; 5 
3 76 4 END ; 3 
; 209 sf 4 ! 3 
> 2094 4 4 ! The UIC format was used, parse it to fine the 3 
3 5 4 4 ! arpu and member number. 3 
3 09 OB 2 ; d card group and member numbers are allowed : 
> 2098 0 ; 4 if NOT PARSE_UIC ( IDENT UIC$V_GROUP) : 
> 2099 08 4 IDENTCUICSV-MEMBERI, : 
: 2100 084 4 — ) 3 
: $18) bbe THEN BEGIN 
: 198 OB? ; LIBSSIGNAL (UAFS LUICERR, 2, .TOKENLEN, .TOKENPTR); : 
i eae eB An : 
; 106 090 4 ceoaatlt sent = UICSK_UIC_FORMAT ; ; 
: 198 $92 : ELSE : 
1 peu : 
: 21i1 095 4 i A user name was specified. Get the UAF record 3 
3: 211 0 4 i for this user and pull the UIC out. : 
> 211 097 4 i : 
: $ii8 099 iF .gtR vito 
ge RM ene : 
: 118 196 : Wild cards are not allowed for user specs ; 
> 2120 104 5 L1BSS1GNAL (UAFS,WLDNOTALWD) ; ; 
Be BEG ae : 
: 21 5 109 4 FOUND MATCH ; 
+ 2126 108 5 IF RMSBAD ( t witb LOsek (UAF $BUILD_HOLDER) ) : 
: $182 i408 THEN GIN ; 
> 21 $ 111 IF .RMSERR EQL RMS$ : 
+ 2128 118 THEN CLBSSIGNAL TUAFS. BADSPC) 3 
; 1 9 113 ELSE LIBSSIGNAL(UAFS~ -ROGADEYERR. 1, NAME_DESC, : 
: 131 115 5 RETURN : ; 
: 31 5 19 END ; . : 
: 21 P 118 STATUS = $MOD_HOLDER ( ID = . IDENT, ; 
> 2135 P 211 HOLDER = HOLDER 3 
: 21 P 2120 SET_ATIRIB = .SET_ATTRIBUTES, : 
: 21 121 CLRTATTRIB = .CLRTATTRIBUTES ) ; : 
: 21 1 é END : 
: 2139 1 ELSE 3 
+ 2140 P 2124 STATUS = S$MOD_IDENT ( ID = .OLD_IDENT, : 
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SET_ATTRIB = .SET_ATTRIBUTES, 
CLR-ATTRIB = CUR ATTRIBUTES, 
“NAME = .NEW_NAME PTR, 
NEW-VALUE = .NEW-VALUE ) ; 
IF NOT .STATUS 
THEN LIBSS1GNAL (UAFS RDBMDFYERR, 1, NAME_DESC, .STATUS) 
EGIN 
RIGHTSLIST_MODIFIED = TRUE ; 
L 188s SIGNAL TUAF$_RDBMDFYMSG,'1, NAME_DESC); 
RETURN ; 
END ; ! End of UAFSMODIFY_IDENT 


-EXTRN SYSSMOD_HOLDER, SYSSMOD_IDENT 


OFFC 00000 ENTRY AF SMODIFY, IDENT. Save R2,R3,R4,R5,R6,R7,- = 1842 
B 8 00000000" 0 3E 00002 MOVAB ID BERY” Ra : 
00000 00" 0 00 MOVAB STATUS. R10 ; 
t AE $5 0010 MOVAB 374 (SPS F 
54 OAL 0100006 BF 0 14 MOVL 176 4750, "MANE _DESC + 1879 
AE 04 O001C CLRL NAME : 
2¢ AE: 01000 BF DO OO01F MOVL #17694 ‘eu NAME_DESC + 1882 
AE D4 7 CLRL  NEW_NAME sett 4 ; 
58 7C A CLRO SET “ATTRIBUTES : 
000090906 00 OF PUSHAB TOKENDSC + 1894 
180 CA 9F PUSHAB sD. TOKEN1 F 
000000006 90 FB CALLS : cLISGET VALUE ; 
6 000000006 3 MOVZWL TOKEN LEN + 1896 
50 000000006 p 44 MOVL  TOKENP : 
20 60 “ 36 C 0004 MOVCS RG, CRON. #32, #32, NAME_BUFF : 
50 2 D0 3 MOVL ns RO : 1897 
20 Bi 2 CMP #32 ; 
BLEQU 3 
50 D 3A MOVL ‘ 2, RO ; 
54 AE 8 05D 1$: MOV NAME _DESC ; 
8 AE 34 AE E 061 MOVAB NAME BU BUFF, NAME_DESC+4 : 1898 
7E 006¢ CLRL = =(SP :1 
4 AE 9F 00068 PUS LD_IDENT : 
.. & F 00068 PUS NAME _DESC ‘ 
000000006 00 FB 000¢ CALLS #3, SYSSASCTOID : 
6A dO 00C MOVL RO. STATUS ; 
03 0078 BLBS RO. 28 ; 1906 
0254 0078 BRw 358 : 
0150 CA 9F OOO7E 28 PUS 5_ATTRIBRE SOURCE > 1919 
000000006 00 1 FB 000 CALLS #17 CLISPRESENT F 
A dd 000 MOVL RO. STATUS : 
000000006 &F p 00 cnet R ; #CLIS_NEGATED > 1920 
ue P+ 
59 1 06 OC MOVL © #1, CLR_ATTRIBUTES : 1921 
4 3 BRB 4$ ; 


<2 
o- 
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; 0 £9 9A 3S: BLBC R0. 4$ ; F 
3 MOVL #1, SET_ATTRIBUTES : ; 
000090006 0 9F OOOA0 4$ PUSHAB TOKENDSC : : 
1 A OF A6 PUSHAB ¥ 3 ; 
000000006 : 83 re AA CALLS ig: CL ISGET_VALUE ; ; 
? A iH B4 MOVAB NEW _NAME_DESC, NEW_NAME_PTR : ; 
990000 G ¢ B8 MOVZWL TOKENLEN; R ; : 
0 G p BF OVL  TOKENPTR. R : ; 
20 20 6 ss ¢ C6 MOVCS R6, (RO), #32, #32, NEW_NAME_BUFF ; ; 
39 2 b0 C MOVL R6, R : : 
8 D CMPW 3S séRO. #32 : : 
9) BLEQU§ 5 3 . 
50 09 D MOVL #32, RO : F 
36 AE : 0 dB S$: MOVW RO, NEW_NAME_DESC : : 
0 AE 0c 08 3 aie 1 W_NAME_BUFF, NEW_NAME_DESC+4 : : 
g 4 OES $$: CLRL NEW_NAME_PTR : 3 
0198 A 9F OOOES 7$: PUSHAB S0_VALUG 3 
000000006 00 of f QOE9 CALLS #17 CLISPRESENT 
08 AE 04 SOrS CLRL NEW _VALUE F 
00F 3 O0F6 8$: BRW 23$ : 
000000006 00 9F 000F9 98: PUSHAB TOKENDSC : 
01A0 CA 9F OQOOFF PUSHAB SD_VALUEIDENTIFIER ; 
000000006 00 92 f 0103 CALLS ’ > CLISGET_VALUE ; 
04 AE Dé 0100 CLRL ‘ TMP_IDENT : 
20 OD ou PUSHL #32 : 
08 AE 9F 0011 PUSHAB TMP_IDENT ; 
000000006 00 03 FB 0011 CALLS #2, GETVAL F 
6A dO 0011C MOVL RO, STATUS : 
03 50 : O11F BLBS 10$ ; 
018D 01 é BRW ; 
0B AE 02 06 02 4 01 10$: INSV #2, #6, #2, NEW_VALUE+3 : 
08 AE 1¢ 00 06 AE FO 001 8 INSV  TMP_IDENT, #0 138 NEW VALUE ; 
80008000 &F 08 AE D1 ‘ CMPL NEW-VALUE, #-5147450880 ; 
SFFFFFFF © 8F 08 AE D1 136 CMPL NEW_VALUE, #-1879048193 : 
000000006 BF BD OO146 118: PUSHL —#UAFS_IDOUTRNG 
01A8 CA 9F OO14E 12$:  PUSHAB SD _VALUEUIC : 
000000006 00 FB ; CALLS ae ul PRESENT ; 
1 bp 15¢ PUSHL #1. : 
01A8 «CA OOF 001 PUSHAB S$D_VALUEUVIC : 
000000006 00 03 Fe 165 CALLS 1 : PARSE WILD ; 
bA bp 16¢ PUSHL status : 
0143 1 ; Rid 6$ 3 
47 G E9 00171 13$:  BLBC  UIC_FLAG, 18$ ; 
OF G 34 178 BLBC  GRPTWILD. 15$ ; 
. ¢ F 5 ie 14$: PUSHL PE AFS-NDERPUILD : 
t f 18° "BRB Ai . : 
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27$: 
28$: 
298: 


30$: 


31$: 
32$: 
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AX=11 Bf 


s 
UAF .SRCIJRIGH 


ovuern;n— cs 
* ce 


OKENPTR 
TOKENLEN, (SP) 


#UAF$_UICERR 
#192, NEW_VALUE+3 


STR WILD, 21$ 
HUAFS_WLBNOTALUD 


Waza waeZzZze 
NCNO 


IDENT, NEW_VALUE 
SD_HOL 

“i,  alamceaatl 
R “§ 


a9 


=(SP) 
SD_HOLDER 

4% PARSE WILD 
RO, 25$ 


UIC_FLAG, 28$ 
GRP uite: 6$ 


2, IDENT+3 
WILD, 298 


po) (1 (Ae Dee 
= oo FO OM -- DOwo 


D_MATCH 
UAF SB0ILD_HOLDER 
#1, WILD OSER 
R SERR 
RMSERR, RO 
RO, #98994 


MUAF $_BADSPC 
#1, LIBSSIGNAL 


SET_ATTRIBUTES, -(SP) 
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es a 2 

000000006 00 Os ‘? i ate og SYSSMOD_HOLDER é 
08 a6 DD 3 33$: PUSHL NEW_ VALUE : 2128 

2 pp 30 PUSHL “NAME _PTR : 

7E 8 70 F ova SET_ATTRIBUTES, -(SP) : 

10 ag DOD ~ PUSHL = 3 

000000006 00 F A CALLS #5, SYSSMOD_IDENT : 

6A 0D O2AC 348: MOVL RO, STATUS ; 
15 OQ €E8 OO2AF BLBS RO, : 3139 
0 td 8 t23: PUSHL 3; 2131 

58 AE F B4 3568: PUSHAB NAME_DESC F 

1 OD B7 PUSHL 1 5 

00000000G 8F DD 00289 PUSHL #UAF$_RDBMDFYERR : 

000000006 00 4 FB or 37$: CALLS #4, LIBSSIGNAL ; 
000000006 00 01 8 0 £s 38$: MOVB #1, RIGHTSLIST_MODIFIED 3 2134 
54 AE 9F OO2CE PUSHAB NAME_DESC : 2135 

gt DD 00201 PUSHL : 

000000006 F DD 00203 PUSHL ne RDBMDF YMSG 3 

00000000G 00 03 FB 00209 CALLS #3, LIBSSIGNAL 3 
04 002E0 RET 3: 2139 


; Routine Size: 737 bytes, Routine Base: $CODES + OCAE 


; 2156 2140 1 
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3 128 1] } ZSBTTL * UAFSREMOVE_GRP_IDENT = Remove group identifier from RDB’ ; 
: 2160 128 1 GLOBAL ROUTINE UAFSREMOVE_GRP_IDENT : NOVALUE = ; 
; 2161 144 BEGIN é 
$ 106 145 '+¢ : 
3; 216 148 ! 5 
; 168 1th FUNCTIONAL DESCRIPTION: : 
+ 2166 149 2} This routine is used to remove a group identifier from the rights data ; 
; a4 139 } base if there is no longer any in that group in the UAF. : 
> 2169 13 i : 
; 199 1 § ' INPUTS: F 
3: 2171 133 ! HY 
: 176 155 ! none ; 
3 217 138 ! ; 
3 2174 15 ' IMPLICIT INPUTS: : 
3; 2175 158 ! 3 
3 178 1 RECBUF must contain the UAF record which was just deleted. : 
: $196 161 2 | OUTPUTS: ; 
3: 2179 196 ! 3 
; 2180 16 ! None 3 
; 2181 164 ! $ 
: 186 165 ' IMPLICIT OUTPUTS: : 
3; 218 166 ! F 
> 2186 16 ! none $ 
3; 2185 168 ! 3 
3; 2186 169 ' ROUTINE VALUE: $ 
3: 2187 170 ! é 
3: 2188 171 ! none : 
3; 2189 ve ! : 
3; 2190 17 ' SIDE EFFECTS: 3 
3 2191 174 ! : 
3 2182 175 ! rights data base is modified 3 
: 219 176 ! 3 
3 2194 2177 !e- : 
: $19e 155 
> 2197 180 2 BIND : 
3 138 13) UICMEMWLD = CSTRING (‘C!OW,*)") ; : 
> 2200 188 LITERAL : 
; 4 ie STR_BUFFLEN = 20 ; : 
: $508 186 LOCAL : 
; 04 18 FAO_DESC STATDESC , : 
3 05 188 NAME _DESC aOR ek : 
: 06 1 NAME _BUF F VECTOR C KGBSS_NAME, BYTE ] , 3 
; 220 190 STR_DESC =: STATDES ; 
> 2208 191 STR-BUFF =: ‘VECTOR SfR_BUFFLEN, BYTE ] , ; 
3 09 136 WILB_IDENT : S$BBLOCK (4]°; : 
: it 194 2! ; 
3 \6 195 ! Get the vic from the recbuf and build an identifier with it FY 
s i 136 Also build a wild card member version. ‘ 
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UAF $F IND 


Ooo 


FORMAT) 
GROUP) 
MEMBER] 


C 
WILD_IDENT(U 
ILD_IDENTLU 
I DENTLU 


IDENT DUT EE FORAATI ; 
ites UICSV_ GROUP) ; 
IC$SK_WILD_MEMBER ; 


— 
9 
_ 


go any further see if the identifier even exists and get 


KGBS$S_NAME ; 
NAME_BUFF ; 

D = ,WILD 
NAMLEN = NAME_ 
NAMBUF = NAME~ 


mB CC 


5 
D 


mme- 
nwneo 
Qoam 
mz 
-r- 
fT. 
=z 
a 
“ 
= 
us 
>. 


THEN RETURN ; 


i Now build an ascii UIC string that we can pass to PARSE_WILD_UIC 
! After using this routine to parse the string we can use the standard 
! method of reading the UAF (ie. WILD_USER ) 


AO_DESCCLENGTH] = .UICMEMWLD<O,8> ; 
AO-DESCCPOINTER] = UICMEMWLD + { ; 
Re LENGTH]. = STR_BUFFLEN ; 

AG 


POINT STR 


' 
' 
! 
! 
i 
F 
F 
Ss 
S NTER) = evre 

$ FAO_DESC, STR_DESC LENGTH], STR_DESC, .WILD_IDENTCUICS$V_GROUP] ) ; 


2 
2 
2 
2 
2 
2 T 
T 
F 
7 ' 
! Now set a global flag sreting that the Ag is empty. If WILD_USER 
! finds any records it will call UAFSRECORD_FOUND which will penne 
' the state of the group empty flag and return a failure to WILD_USER. 
! The failure code will cause WILD_USER to exit it's loop there By 
stopping as soon as a single record is found. 
PARSE_WILD_UIC ( .STR_DESCCLENGTH], .STR_DESCCPOINTER] ) ; 
FOUND-MATCA = F : 


C LSE ; 
STATUS = WILD_USER ( UAFSRECORD_FOUND ) ; 
IF RMSBAD ( .STATUS ) 

THEN IF (.RMSERR NEQ RMS$_RNF) AND 


(.RMSERR NEQ F 
THEN LIBSSIGNAL(UAFS_RDBREMERR, 1, NAME_DESC, .RMSERR); 
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; 
; 
: 
: 
: 
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! 
' Now if the flag is still set to false 
we can remove the identifier . 

I 
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F NOT .FOUND_MATCH 
THEN 

BEGIN 

STATUS = SREM_'DENT ( ID = .WILD_IDENT ) ; 

| 

| 


: 
; 
; 
; 
; 
2 
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SOLS 


IF NOT .STATUS 
THEN 
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BEGIN 
LIBSSIGNAL(UAFS_RDBREMERR, 1, NAME_DESC, .STATUS); 
RETURN ; 
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: 227 5 ‘ END 
: 207 : ELSE 
> 2074 4 BEGIN 
> 2075 : 4 RIGHTSLIST mODiF LED = TRUE 
> de? 59 4 IF .WILD_IBENTCUICSV_FORMAT) EQL UICSk UIC FORMAT 
; 2e? 60 4 THEN LIBSSIGNAL (OAF$_RDBR WASGU, 3, NAME_DESC, 
: 2278 61 4 WILD_TDENTCUIC$V. GROUP] 
: 2279 62 4 WILD" IDENTCUICSV"MEMBERS) 
; 80 63 4 ELSE LIBSSIGNAL(UAFS_RDBREMMSG,~2, NAME_DESC, .WILD_IDENT); 
: 228 65 END ; 
: 228 $6 
3 84 6 RETURN ; 
+ 2285 68 
: 2286 69 1 END; ! End of UAFSREMOVE_GRP_IDENT 
.PSECT $PLIT$,NOWRT,NOEXE,2 
07 0006D P.AAO: -BYTE 7 ; 
SD 2A 2C 57 GF 21 5B 0006E ASCII \C!Ow,*]\ : 
UILCMEMWLD= P.AAO 
.EXTRN SYSSFAO, SYSSREM_IDENT 
.PSECT $CODE$,NOWRT,2 
0OFC 00000 ENTRY UAF SREMOVE_GRP_IDENT, Save R2,R3,R4,R5,R6,- ; 2143 
57 000000006 8F D0 00002 MOVL §§ #UAFS$_RDBREMERR, R7 : 
56 000000006 00 9€ 00009 MOVAB RMSERR, R6 ; 
55 00000000' 00 9E 00010 MOVAB STATUS, R5 ; 
54 000000006 00 9€ 00017 MOVAB FOUND MATCH, R4 ; 
53 000000006 00 9E OO0iE MOVAB LIBSSIGNAL, R3 : 
5E BS OAE 3 0002 MOVAB = (SP) § ; 
44 AE 010E0000 8F D 900 9 MOVL = #1 694720 FAO_DESC > 2187 
48 AE D4 00031 CLRL FAQ DE ; 
3C AE 010E0000 8F DO 000 MOVL = #1 594 0, NAME _DESC > 2188 
40 AE D4 9005¢ CLRL NAME ; 
14 AE 010E0000 8F DO 0003F MOVL #7698 6. STR_DESC + 2190 
18 AE D4 00047 CLRL  STR_DESC+4 : 
FOBD CF 00 FB OO04A CALLS 30. “UAF $F IND_UIC : 2198 
50 00000000" 00 02 06 EF D004 EXTZV ; ue IDENT , RO > 2199 
52 02 1E FO 00058 INSV r 6. #2, WILD_IDEN : 
52 OE 10 00000000' 00 FO 90050 INSV IDENT+2, #16, #147 WILD_IDENT : 2200 
52 01 AE 0066 MNEGW #1. WILD_IDENT ; 3 01 
3c OA 20 B 90069 MOVW é E_DESC > 2207 
40 AE 10 AE OE 06 MOVAB € BUFF, NAME_DESC+4 : g 08 
7E 7C 000 CLRQ  =( SPY > 2211 
7E pb, 7 CLRL = = (SP) : 
48 AE 9F 00 i PUSHAB NAME_DESC ; 
4C AE oF 0 7 PUSHAB NAME~DESC ; 
DD orc PUSHL WILD IDENT : 
000000006 00 6 Fa 6 3 CALLS #6, SYSSIDTOASC ; 
01 E8 6 085 BLBS =O, *‘1$ : 
4 000 RET ; 
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44 AE y g 9 1$: MOVZBW UICMEMWLD, FAO_DESC 3 2219 : 
48 AE Maitdit 09 re f MOVAB UI CMEMMLD #1 FRO_DESC+4 + 2220 ; 
14 «OA 4 F 39 MOVW #20, STR_DESC : 1 ; 
18 «AE 6 E D MOVAB STR_BUFF> STR_DESC+4 : i : 
7E 52 OE 1 fF Al EXTZV. #16> #14, WILB_IDENT, -(SP) t 22 : 
18 AE OF OAs PUSHAB STR_DESC : ; 
iC AE i A PUSHAB STR-DESC : ; 
50 AE 9F OOOAC PUSHAB FAO~DESC : ; 
000000006 00 04 FB OOOAF CALLS #4, SYS$FAO : ; 
18 AE pd B6 PUSHL STR_DESC+4 : 2232 ’ 
7E 1 AE 3C 00089 MOVZWL STRIDESC, -(SP : ; 
000000006 00 02 FB OOBD CALLS #2, PARSE_WILD_UIC : : 
64 D4 000C4 CLRL. FOUND MATC + 2233 ; 
FB4B «OCFSOOF: «00066 PUSHAB UAFSRECORD_FOUND + 2234 : 
000000006 00 1 F SO0CA CALLS #1, WILD USER : ; 
65 0 bO 00001 MOVL RO, STATOS : 3 
66 50 D 90004 MOVL RO, RMSERR + 2235 ; 
iC 50 €8 00007 BLBS =soR : F 
50 66 DO OO0DA MOVL §§ RMSERR, RO + 2236 : 
00018282 F 0 D1 000DD CMPL RO, #98994 : : 
10 13 OO0E4 BEQL © 2$ : ; 
50 03 00E6 TSTL RO > 2237 : 
0c 13 000E8 BEQL 2$ : ; 
50 DD OOOEA PUSHL > 2238 : 
40 AE 9F OOOEC PUSHAB NAME_DESC : F 
01 DD OOOEF PUSHL : : 
57 DD OOOF1 PUSHL 7 : ; 
63 04 FB 000F3 CALLS #4, LIBSSIGNAL : : 
4F 64 EB 000F6 2S: BLBS FOUND MATCH, 6$ : 2244 ; 
52 DD 000F9 PUSHL WILD_YDENT 3: 2248 3 
000000006 00 01 FB OOOF CALLS #1, SYSSREM_IDENT : 3 
43 50 00 9019 MOVL RO. STATUS : : 
0B 50 £8 0010 LBS 7 : 3250 : 
50 DD 00108 PUSHL : 2253 : 
40 AE 9F OO10A PUSHAB NAME_DESC : ; 
07 DD 0010D PUSHL #1 : 3 
37 DD 0010F PUSHL R7 ; : 
2 11 00111 BRB 4 : : 
000000006 00 07 90 00113 3s: MOVB #1, RIGHTSLIST_MODIFIED : 3258 : 
00 2 02 1 ED O11A CMPZvV #30, #2, WILD_TDENT, #0 : 2259 ; 
17 12 OO11F NEQ 43 : : 
7E 38 3¢ 00121 MOVZWL WILD_ IDENT. -(SP) + 2262 : 
7E 52 OE 1 ai 0124 XT2V.  #16,7#14, WILD_IDENT, -(SP) + 2261 : 
44 Ar 129 PUSHAB NAME_DESC ; 2260 ; 
0 DD 0012¢ PUSHL #3 : : 
000000006 8F DD 0 12£ PUSHL aUAFS RDBREMMSGU ; : 
3 0S FB 001 CALLS #5, LYBSSIGNAL ; : 
04 00137 RET : : 
52 DD 00138 4$ PUSHL WILD_IDENT > 2263 : 
40 AE F O013A PUSHAB NAME~DESC ; : 
DD 0013p PUSHL # : : 
000000006 8F DD 0013F PUSHL #UAF$_RDBREMMSG : : 
3 4 FB oR 5$: CALLS #4, LIBSSIGNAL ; ; 
04 00148 6$: RET > 2269 3 
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1 ZSBTTL * UAFSREMOVE_IDENT - Remove identifier from RDB' 
1 tT ROUTINE UAFSREMOVE_IDENT : NOVALUE = 

++ 

FUNCTIONAL DESCRIPTION: 


This routine is used to remove an identifier from the rights 
data base. It is invoked via the REMOVE/IDENT command. 


INPUTS: 
none 
IMPLICIT INPUTS: 
command Line 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
rights data base is modified 


i Get the ID name. This is a required parameter so we are guaranteed 
' that it will be present 


‘ 
' 
' 
' 
CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; 


1 
Convert the ID from ASCII to a longword format 
STATUS = SASCTOID ( NAME = TOKENDSC, 
= JDEN , 
ATTRIB = 0) ; 
IF .STATUS 
THEN 


Now remove the entry 
STATUS = SREM_IDENT ( ID = .IDENT ) ; 
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; § : IF NOT .STATUS : 
: § i og N : 
: 2350 : C18SS1GNAL (UAFS_RDBREMERR, 1, TOKENDSC, .STATUS); ; 
: 1 RETURN ; : 
3 § 4 END ; 
3 5 ELSE : 
; 4 6 BEGIN ; 
; 5 RIGHTSLIST_MODIFIED = TRUE : : 
3 $ 8 IF .IDENTCOICSV_FORMAT] EQL UICSK UIC, he 3 
; 2358 40 aaa sen DENTCULESY, GROUP]. [DENT EOI ESY MEMBER) 
; 39 41 ELSE LIBSSIGNAL(UAFS$ “ROBREAMSG™ af TOKENDSC, .IBENT); ; 
3 1 23 ; 
: 6¢ a4 RETURN ; ; 
> 2364 346 1 END; ! End of UAFSREMOVE_IDENT ; 
003c 00000 ENTRY UAF SREMOVE _IDENT, Save R2,R3,R4,R5 : 2273 
55 000000006 00 9€ 9000¢ MOVAB LIBSSIGNAL; R ; 
54 000000006 00 9€ 0000 MOVAB TOKENDSC, R4 : 
33 bo000000" 00 SE BOOT? moves stays. 65 
54 DD Boot PUSHL RG > 2313 
0180 C3 9F 000 PUSHAB SD_TOKEN1 ; 
000000006 00 92 FB 90 4 CALLS #27 CLISGET_VALUE ~~ 
es DD 90 D PUSHL Re ; 
54 DD O00eF PUSHL : 
000000006 0 03 FB 90 1 CALLS a. grange 
0c a3 £9 00% LBC STATO ; 3332 
62 DD 000 PUSHL Ip NT : 
000000006 0 Q F 904 CALLS #1, SYSS$REM_IDENT ; 
9 DO 0004 MOVL RO, STATUS : 
0 D OO4A 1$: MOVL STATUS, RO > 2329 
0€ 0 €E8 00040 LBS = RO, 28 ; 
0 DD 9 9 PUSHL : 2332 
4 0D PUSHL R ; 
1 DD 4 PUSHL #1 : 
000000006 f bp 6 PUSHL #UAF$_RDBREMERR : 
: RIGHTSLIST_MODIFIED ; 7 
vonnnggs gos HE SERRE NR He gITgT- ae 
7? 1 A BNEQ ; 
7E 3¢ C MOVZWL IDENT > 2340 
7E 02 A2 OE ef 6f EXTZV at TDENT#2, -(SP) 5 seen 
3 (OD 13 PUSHL ; 
000000006 8F DD 00079 PUSHL fyars RDBREMMSGU ; 
5 5 FB O007F CALLS LTB$SIGNAL ; 
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04 RET 3 
2 DD 3$: PUSHL IDENT + 2341 
3 BD pusMt ge : 
000000006 &F DD 9 PUSH HAFS RDBREMMSG ; 
5 4 FB F 4$: CALLS #4, LIB$SIGNAL : 
04 2 RE + 2346 


; Routine Size: 147 bytes, Routine Base: S$CODE$ + 10D8 
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i 1 XSBTTL * UAFSREMOVE_IDENT_RECBUF = Remove identifier from RDB’ 
0} GLOBAL ROUTINE UAFSREMOVE IDENT RECBUF = 


2 V4.0-74 Page 79 


RA GHT MAN s- 
; 7 


; BE 
3 a! '+¢ 
. ' 
; t } FUNCTIONAL DESCRIPTION: 
+ 2375 : This routine is used to remove an identifier from the rights data 
; 237 : base. The identifier to be removed is determined by the UIC of 
; , the UAF record in RECBUF 
; 237 ! INPUTS: 
; 2380 : 
; 2381 } none 
; Bs IMPLICIT INPUTS: 
; 5 RECBUF must contain a valid UAF record 
; i i OUTPUTS: 
3 : 
; 2389 % ! None 
; 2390 71 ! 
} 91 7 ' IMPLICIT OUTPUTS: 
: 4 7 ! 
; 239 74 : none 
3; 2394 75 ! 
: 95 7 ! ROUTINE VALUE: 
: 2396 7 ! 
3; 2397 7 ' Always true 
3 $5 7 ! 
3; 2399 80 ! SIDE EFFECTS: 
; 2400 +? ! 
; 2401 ! rights data base is modified 
3 ret 8 !=< 
; 240 84 
3: 2404 85 
: 2405 Hy] 
3 2406 8 BIND 
3; 2407 88 UICSTRING = CSTRING ('C!OW,!OW)") ; 
; 2408 89 
3; 2409 90 LITERAL 
3: 2410 91 STR_BUFFLEN = 20 ; 
3; 2411 9 
3 21g 9 L 
3; 241 94 FAO_DESC : STATDESC , 
3 2414 95 NAME _DESC : or ates be 
3 2415 9 NAME _ BUFF : VECTOR C KGBSS_NAME, BYTE ] , 
: 21g 9 STR_DESC : vecron’t 
: 241 98 STRTBUFF =: VECTOR CSTR_BUFFLEN, BYTE ) ; 
: 2418 
3 2419 4 ! 
3 ; ’ " 1 Get the uic from the recbuf 
3 2422 4 : UAFSFIND_UIC (); 
3: 2423 404 
j 
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+ 2426 405 : : 
: 2425 & $ : Before we go any further see if the identifier even exists and get ‘ 
3 $2 § ri t's name. If it doesn't exist, skip right to the Group identifier : 
i shes 4 5 NAME DESCELENGTH] = KGBSS NAME ; ; 
; 24 4 NAME _DESCLPOINTER) = NAME_BUFF ; : 
; 2450 P 2411 IF (SIDTOASC ( I = . IDENT : 
: 2431 P gale NAMLEN = NAME _DESCCLENGTH] , ; 
: 24 g 41 NAMBUF = NAME_DESC ) ) ; 
3 24 414 THEN : 
; 4 ¢ re BEGIN : 
> 26 a19 i Now build an ascii UIC string that we can pass to PARSE_WILD_UIC : 
3; 24 Bt ! After using this routine to parse the string we can use the Standard ’ 
3 re : $38 method of reading the UAF (ie. WILD_USER ) : 
: 2440 421 FAO_DESC LENGTH] = .UICSTRING<O,8> ; ; 
> 2441 436 FAO-DESCEPOINTER] = UICSTRING + { ; ; 
3; 244 & STR_DESCLLENGT = STR_BUFFLEN ; : 
3 2446 424 STR_DESCLPOINTER) = STR F ; : 
3: 2444 P 2425 SFAO ( FAO DESC, STR_DESCCLENGTH], STR_DESC : 
3445 426 .IDENTCUICSV_GROUPJ, .IDENTCUICSO_MEMBER] ) ; : 
: 264 428 ; 
3 2448 429 ! Now set a global flag stating that the record was not found. If WILD_USER : 
3; 2449 430 ! finds any records it will call UAFSRECORD_FOUND which will change : 
; 2450 431 1 the state of the flag and return a failure to WILD_USER. ; 
: 2451 4 § ! The failure code will cause WILD_USER to exit it's loop there by : 
; t2§ : : stopping as soon as a single record is found. : 
> 2454 435 PARSE_WILD UIC ( .STR_DESCCLENGTH], .STR_DESCCPOINTER] ) ; : 
3 2455 4 FOUND-MATCA = FALSE ; ; 
; $2 4 STATUS = WILD_USER ( UAFSRECORD_FOUND ) ; ; 
3; 245 438 4 IF RMSBAD ( .STATUS ) : 
; 2458 439 3 THEN IF (.RMSERR NEQ RMS$_RNF) AND : 
3; 2459 440 4 eRMSERR NEQ FALS : 
: 2460 441 THEN LIBSSIGNAL (UAFS_ROBREMERR, 1, NAME_DESC, .RMSERR); : 
: $8 i . : 
; 168 444 i Now if the found_match flag is still set to false : 
: ree: rer } we can remove the identifier . : 
; 466 44 iF NOT .FOUND_MATCH ; 
3; 246 ao THEN : 
ne se 
: fA) $3) : STATUS = S$REM_IDENT ( ID = .IDENT ) ; : 
: 247 rt a IF NOT .STATUS : 
: Sen as § MEN BEGIN 
+ 2675 $28 LIBSSIGNAL(UAFS$_RDBREMERR, 1, NAME_DESC, .STATUS); 3 
it 3 ht 7 
a. iy ESE : 
: 2480 461 3 RIGHTSLIST_MODIFIED = TRUE ; j 
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> 2481 4 IF .IDENTCUICSV_FORMAT] EQL UIC$K_UIC_FORMAT 
> 24 ¢ aes THEN LIBSSIGNAL (UAFS$ ROBRERAS GY, 3, NAME_DESC, 
: 26 464 . IDENTCUTC$V_GROUP 
: 26 465 ~ LDENT yicsy MEMBERS) 
; 2485 4 6 ELSE LIBSSIGNAL(UAF$_RDBREMMSG, 2, NAME_DESC, 
; r 4 IDENT); 
: 26 469 
3 2489 
; 2490 
3; 2491 
: 138 
> ret If no then delete the group's identifier. 
: 495 UAFSREMOVE_GRP_IDENT () ; 
; 437 RETURN TRUE ; 
> 2499 END ; ! End of UAFSREMOVE_IDENT_RECBUF 


-PSECT S$PLITS,NOWRT ,NOEXE .2 


09 00075 P.AAP: .BYTE 
«ASC 


9 
5D 57 4F 21 2C 57 4F 21 5B 00076 II] \C!OW,!0WIJ\ ; 


UICSTRING= P.AAP 


-PSECT S$CODES,NOWRT,2 


01FC 00000 ENTRY UAF SREMOVE_ IDENT _RECBUF Save R2,R3,R4,R5.- ; 2350 
58 900000006 8F 00 0000 MOVL §§ #UAF$ RDBREMERR, RS : 
57 000000006 00 9€ 0000 MOVAB RMSERR, R ; 
36 99000 00° 00 9E 9019 MOVAB STATUS. R6 : 
00000006 00 9€ 0001 MOVAB FOUND MATCH, RS ; 
4 F E F 9E olf MOVAB UAFSFIND_UIC, R4 ; 
3 99000 G 0 9E MOVAB LIBSSIGNAL, R3 : 
2 00000000' 9E O002A MOVAB : 
5E 4 AE 4 i MOVAB = (SP) SP ; 
44 AE 010E00 SF D 5 MOVL  #17694720, FAO_DESC + 2394 
48 AE D4 CLRL sodA +4 ; 
3c = AE 01060000 «BF «OOO MOVL  #17894720, NAME_DESC : 2395 
40 AE D4 0004 CLRL NAME $ ; 
16 AE 0100000 BF DO 48 MOVL #17694 STR_DESC : 2397 
18 AE D4 CLRL_ STR_DESC+4 ; 
64 9 FB é CALLS #9 UAF $F IND_UIC : 403 
3C AE MOVW #30 E_DESC > 26 
40 oA 1¢ AE 9E MOVAB NAME_BUFF, NAME_DESC+4 > 261 
7E 7C 0006 CLRQ = = (SPT : 241 
7E D4 CLRL = = (SP) ; 
48 AE OF PUSHAB NAME_DESC : 
4C «OAE OOF PUSHAB NAME DESC ; 
6 DD 0006C PUSHL IDENT : 
000000006 00 6 FB 0006E CALLS #6, SYSSIDTOASC ; 


468 4 ne END ; 
4 p END ; : 
ee 
ars i Scan the UAF and see if there is anyone left in this group. 
if 
59 
478 
479 
48 
| 
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03 7 BLBS =O, ; 3 | 
: A BRW Rg. : 2 4 
44 KE g9000000""» ‘8 1$ MOVZBW UICSTRING, FAO_DESC + 2421 34 
48 MOVAB UIESTRING® | FRO_DESC+4 3 24 é : 4 
14 AE B MOVW #20, STR_DESC + 26 34 
18 AE be MOVAB STR BUFF; STR_DESC+4 + 2426 34 
7E 6 oe 3 MOVZWL IDERT, =(SP) + 2426 3 4 
7E 02 A2 OE EF 96 EXTZV. #0, #14, IDENT+2, -(SP) : 24 
1¢ AE SF 0009C PUSHAB STR_DESC : 34 
g, OME 8F Oo oan PUSHAR PAOMDESE : | 
000000006 00 O6 FB 0 Ag CALLS #5, "SYSSFAO : : | 
18 AE pp AC PUSHL STR_DESC+4 > 2435 ; 4 
7E 18 AE 3C OOOAF MOVZWL STRIDESC, -(S : 4 
000000006 00 02 FB 000B3 CALLS #2, PARSE_WILD_UIC ; ; 4 
65 D4 OOOBA CLRL «FOUND _MATCH + 2436 24 
0209 C4 OF 9008 PUSHAB UAFSRECORD_FOUND + 2437 34 
000000006 00 9} FR 00C CALLS #1, WILD_USER : 34 
AG 0D b00¢ MOVL * STATOS : 24 
67 50 DO OOOCA MOVL ; RMSERR + 2438 34 
iC 50 €8 000CD BLBS 2$ ; 34 
50 67 DO 60000 MOVL RO: 2s RO + 2439 24 
00018282 BF 50 D1 000D CMPL RO. #98994 : 34 
10 13 BO0DA BEQL © 2$ ; 34 
50 03 000¢ TSTL RO + 2440 34 
O¢ 13 O00DE BEQL 2$ ; 34 
bd OO0E9 PUSHL RO + 2441 24 
40 AE OF O0Ee PUSHAB NAME_DESC : 24 
01 DD OO0E PUSHL #1 : 34 
58 DD OO0E7 PUSHL RB ; 3 4 
63 04 FB 00E9 CALLS #4, LIBSSIGNAL : 34 
54 65 £8 OOOEC 2s: BLBS | FOUND_MATCH, 5$ + 2447 34 
62 DD OOOEF PUSHL IDE : 2451 3 4 
000000006 00 gi FB OOF 1 CALLS #1, SYSS$REM_IDENT : 34 
66 0 dO 000F8 MOVL RO, STATUS ; 34 
OE 50 €8 000FB LBS. —ss«RO, : 2453 Aa 
50 BD OOF PUSHL R > 2456 34 
40 AE 9F 001 PUSHAB NAME_DESC ; 3 4 
gi DD 001 PUSHL #1 : 34 
8 DD 001 PUSHL R8 : 24 
63 04 FB 1 CALLS #4, LIBSSIGNAL ; 34 
e ? 10A BRB > 2457 7 
000000006 00 01 90 0010C 3s: MOVB ne MODIFIED > 2461 3 4 
CO. BF 03 Ag 93 0011 BITB TOENT + 2462 2 
19 12 0011 BNEQ : 34 
7E 62 3C OO1IA MOVZWL IDENT > 2465 7 
7E 02 A2 OE ai 119 EXT2V. #0, #14, CSOENT#2, -(SP) + 2464 2 
44 AF F 001 PUSHAB NAME DESC + 2463 ¥ 
DD 001 6 PUSHL : 3 
000000006 8F DD 001 PUSHL et RDBREMMSGU ; 2 
3 Fe 1 CALLS #5, LYBSSIG : 3 | 
1 1 BRB . e4 
6 po 133 4$: PUSHL IDENT > 2467 
40 AE F 001 PUSHAB NAME _DESC + 2466 
Dd 001 PUSHL ; 
000000006 BF DD 0013A PUSHL mars RDBREMMSG : 
3 4 FB 00140 CALLS LTB$SIGNAL ; 


M i 
voero00 UAFSREMOVE_IDENT_RECBUF = Remove identifier fr 12: He 1382 9g: $3318 One See Rfentemanso3oe Page 53 
O5SF4 ge 90 08 aB148 33: ROVE At UAF SREROVE _GAP_ IDENT 378 
148 RET : 24 


; Routine Size: 332 bytes, Routine Base: $CODE$ + 1168 


; 2500 2481 1 


N 7 
RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 P 4 
v04-000 UAFSRENAME_IDENT = Modify RDB record 102 388=188e 93:3318 JAF -SRCIRIGHTSMAN- B30; age of 


: 508 : § } ZSBTTL ' UAFSRENAME_IDENT = Modify RDB record’ ; 
; 2504 484 1 GLOBAL ROUTINE UAFSRENAME_IDENT : NOVALUE = 3 
: 202 485 BEGIN 3 
; 2506 rf '++ 3 
3; 2507 4 ! $ 
3 rN tt} FUNCTIONAL DESCRIPTION: ; 
; 2510 490 : This routine is used to change the name of an identifier in the : 
3; 2511 491 ! tights data base. It is invoked via the RENAME/IDENT command. 2 
3 21§ 138 ! This routine performs the same function as the MODIFY/IDENT/NAME F 
; 251 49 } command 3 
3; 2514 494 ! $ 
3: 2515 495 ' INPUTS: 3 
3 5218 49 ! s 
3; 2517 49 ! none 3 
3; 2518 498 ! F 
3 $258 499 ! IMPLICIT INPUTS: ; 
: 2520 500 ! : 3 
3; 2521 2501 ! command Line 3 
$ S2§ $208 ! 3 
3s 23 250 ! OUTPUTS: $ 
3 $2 4 2504 ! ; 
3 2525 505 ! None 3 
3; 2526 506 ! 3 
3; 2527 507 ' IMPLICIT OUTPUTS: 3 
: 2528 208 ! 3 
; S268 50 ! none F 
: 2530 510 ! 3 
3; 2531 sei} § ! ROUTINE VALUE: 3 
3 $258 2t¢ ! $ 
3; 253 2513 2! none $ 
3; 2534 2514 2! 3 
3; 2535 2515 § ! SIDE EFFECTS: 3 
3; 2536 2516 ! : 
3: 2537 2517 ! rights data base is modified : 
: 2538 518 ! 3 
: 2539 519 ed 3 
3; 2540 520 3 
3: 2541 521 3 
3 306 5 § LOCAL : 
3 254 5 NAME _DESC : STAToEse. 3 
3 2544 524 NAMF _BUFF : VECTOR KGBSS_NAME, BYTE J] , é 
3 2545 2 5 NEW_NAME_DESC : DESE. ‘ 
3 248 é $ NEW_NAME~ BUF F : VECTOR C KGBSS_NAME, BYTE J ; : 
3 2548 5 8 IDENT = 0 ; 3 
3: 2549 5 FY 
3; 2550 530 ! 3 
: 2551 531 ! First we will get the identifier name. 3 
; 226 236 : This is a required parameter so it is guaranteed present : 
; 334 534 CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; : 
; 356 236 CHSCOPY -TOKENLEN, , TOKENPTR %C' *, KGBSS_NAME, NAME_BUFF ); ; 
3: 255 5 NAME_DESCCLENGTH) = MIN ( .TOKENLEN , KGBSS_NAME ) ; : 
; 2558 538 NAME_DESCCPOINTER] = NAME_BUFF ; 3 


8 
RIGHTSMAN bese 1984 2:23:14 AX-11 Bliss-32 V4.0-74 
Foon 000 UAFSRENAME_IDENT = Modify RDB record 12-geP 1 384 Ogi gti ts DAF SREIRIGHTSMAN: B32, 
39 
Convert the ID from ASCII to a longword format 
P STATUS = SASCTOID ( NAME = NAME_DESC, 
P = IDENT, 
ATTRIB = 3 


IF NOT .STATUS 
THEN 


Now get the new name 


CLISGET_VALUE ( SD_TOKEN2, TOKEN 
CHSCOPY~( .TOKENLEN, .TOKENPTR, 

NEW NAME_DESCCLENGTH) 
S 


»; 


m—4izeO 


= MIN(. 

EW_NAME_DESCCPOINTER] = NEW_NAM 
TATUS = SMOD_IDENT ( ID 

NEW_ 


NAME 


0909090909 090000 Si NI NI NII NINN NIA AAA AAAAAOU 


PIPIPIPINPIPININYNINPININIPYNINININIPOP NPN nopopofornopofrornonofpopnofpefon) 
PWN OCONOAU EWN $$ O OONAOUESWN (OVO ONAOUESWN OO” 
FUN OC CONOAOUE WN (OO OONOUESWN —OOONAULS WHO 


=OPININAWNIUIPIPIPINPINPIDINININPINININYNININY: 


OFFC 00000 

B 000000006 00 9E 000 
Bisse Be se 
8 00 00° 00 9E 00017 

57 00000000" 00 9E 0001 

5E Q AE 9E 000 
48 AE 010E0000 8F D 9 
4C AE 04 1 

20 AE 010E0000 8F 00 

24 CA » ; 
8 DD 4) 

0180 ? OF 4 

6A 2 FB 4 


KGB$S_NAME, 
EN , KGBSS_NAME ) 


IF NOT .STATUS 
by LIBSSIGNAL (UAF$_RDBMDFYERR, 1, NAME_DESC, 

8 GIN 
8 RIGHTSLIST_MODIFIED = TRUE ; 
9 25 LIBSSIGNALTUAF$_RDBMDFYMSG, 1, NAME _DESC); 
9 25 END ; 
9 25 
9 25 RETURN ; 
9 25 END ; 


NT, 
“NAME_DESC ) ; 


BEGIN 
LIBSSIGNAL(UAF$_RDBMDFYERR, 1, NAME_DESC, .STATUS); 
RETURN ; 


NEW_NAME_BUFF ); 


- STATUS) 


! End of UAFSRENAME_IDENT 


UAFSRENAME _IDENT, Save R2,R3,R4,R5,R6,R7,- 
R8,R9,R10,R11 

TOKENLEN, R11 

CLISGET VALUE, R10 

TORENOSE, R9 


NT 
STATUS, R7 

=80( SPS SP 

#176 4720. NAME _DESC 


NAME 
#17694 NEW_NAME_DESC 
NEW NAME _DESC+% 


SD _TOKEN! 
#27 CLISGET_VALUE 


Seee Pe Se Oe Se Se Se Se Oe Se Be Be ee Oe oe 


2 ost oe ee oe ol od ee oe ol ld od ol od td ot oft od ot i dl i A APO IA IAI IAIAIAIAIAIAINIAIAIAIAIAIAIN) 


8 
RIGHTSMAN bes ep-1984 14 AX-11 BLi V4.0-74 
voe~000 UAFSRENAME_IDENT = Modify RDB record 14- is: 1984 96: $33] 18 {Oar SRCIR tend AN2832:; 
3 4A MOVZWL TOKENLEN, 
6 000000006 69 06 G 4D MOVL TOKENPTR: ~ 
20 20 60 28 78 C 26 MOVCS R6, (RO), #32, #32, NAME_BUFF 
38 ye) 35 MOVL RS: 7 
Re Wine, = ety Age PM 
50 09 $3 OVL He, pO. 
48 AE 8 8 6 1$: MOVW RO. NAME_DESC 
4C AE 28 AE 9E 6A MOVAB NAME BUFF. NAME _DESC+4 
43 D4 ber CLAL (SPY 
5 pO 38 1 PUSHL RB 
50 AG F 0007 PUSHAB ESC 
000000006 00 9 Fe 0076 CALLS a ER MESASCTOID 
67 0 dO 00070 MOVL RO, STATUS 
42 50 €9 Op bee BLBC e 
59 0D 0008 PUSHL 
0188 C7 SF 00085 PUSHAB OKEN2 
6A 02 FB at CALLS re ree eeer VALUE 
56 6B 3C 0008C MOVZWL TOKENLEN, R6 
50 00000000G 00 D0 0008F MOVL TOKENPTR, RO 
20 20 60 72 2c sb MOVCS R6, (RO), #32, #32, NEW_NAME_BUFF 
50 56 00 0009C MOVL R6, RO 
20 50 B81 OO009F CMPW RO, #32 
03 1B O00A2 BLEQU 
50 ¢° DO O00A4 OVL #32, RO 
20 AE 0 BO QOOA7 2$: MOVW RO, NEW_NAME_DESC 
24 «SOA 6E 9E OOOAB MOVAB NEW NAME_BUFF, NEW_NAME_DESC+4 
7E D4 OOOAF CLRL 
24 AE 9F 00081 PUSHAB NEW NAME _DESC 
7E 7C 00084 CLRQ = (SB) 
68 DD 00086 PUSHL IDENT 
000000006 00 05S FB 000B8 CALLS #5, SYSSMOD_IDENT 
67 50 00 000BF MOVL RO, STATUS 
15 50 €8 Boncg BLBS RO, 4 
50 DD O00CS 3$: PUSHL R 
4C AE 9F 000C7 PUSHAB NAME_DESC 
01 DD OOOCA PUSHL #1 
000000006 iy DO OOOCC PUSHL #UAFS$_RDBMDFYERR 
000000006 00 4 fe 43 cue #4, LIBSSIGNAL 
000000006 00 01 90 SO0DA 4$: MOVB #1, RIGHTSLIST_MODIFIED 
48 AE OF OOO} PUSHAB NAME _DESC 
gt DD O00E4 PUSHL 
000000006 8F DD BOSES PUSHL mars RDBMDF YMSG 
000000006 00 03 fe td CALLS LTB$SIGNAL 


; Routine Size: 244 bytes, Routine Base: $CODE$ + 12B7 
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RIGHTSMAN 16-Sep-1984 02:23:14 AX-11 Bliss-32 V4.0-74 
VO 000 UAFSREVOKE_IDENT = Delete RDB holder record 1 730071382 96:39:18 UAF .SRCJRIGHTSMAN.B32; 
; eg5 44 } ZSBTTL * UAFSREVOKE_IDENT = Delete RDB holder record ' 
; 2600 7 1 GLOBAL ROUTINE UAFSREVOKE_IDENT: NOVALUE = 
; 2601 80 BEGIN 
; 260 1 ++ 
; 260 § : 
; oRe ? FUNCTIONAL DESCRIPTION: 
; 2606 5 ' Remove a holder record from the rights data base for the specified 
3 reid : § identifier. This routine is invoked via the REVOKE/IDENT command. 
: 2609 8 2 | INPUTS: 
; 2610 Ht ; 
: 2611 590 : none 
; oi¢ 591 : 
3; 261 206 ! IMPLICIT INPUTS: 
; 2614 59 : 
>: 2615 594 : command Line 
; 2616 595 / 
; solr 596 ! OUTPUTS: 
; 2618 597 : 
3; 2619 598 } None 
; $30 599 : 
: 2621 600 ! IMPLICIT OUTPUTS: 
3 ose 601 ' 
; 262 Ope : none 
: 2624 60 ' 
: 2625 604 ! ROUTINE VALUE: 
3 2626 605 : 
3; 2627 60 : none 
3; 2628 60 : 
: o¢? 608 ! SIDE EFFECTS: 
; 2630 609 : 
; $3) 610 : rights data base is modified 
: 26 ¢ 611 ; 
3 263 ol¢ leo 
3 tr 61 
3; 2635 614 
; 2636 615 IND 
; at 616 HOLDER_VEC = HOLDER : VECTOR (2,LONG) ; 
: 2638 617 
; 2639 618 LOCAL 
: 2640 619 ID_NAME_DESC : SyATeess. 
3; 2641 620 I1D_NAME_ BUFF : VECTOR C KGBSS_NAME, BYTE ] , 
; O46 621 USER_NAME_DESC H OE See 
; or § USER_NAME _ BUF F : VECTOR C KGBSS_NAME, BYTE J ; 
; 2645 624 
; oe 625 : 
3; 264 6 § ! First we will get the identifier name. 
3 2648 6 ! This is a required pereneter so it is guaranteed present 
: eh} We will use the rights data base to translate the name 
; $3) : CLISGET_VALUE ( SD_TOKEN1, TOKENDSC ) ; 
3 re 6 § CHSCOPY ( .TOKENLEN, .TOKENPTR, 2C° *, KGBSS_NAME ID_NAME _BUFF ); 
: 2654 6 ID_NAME_DESCCLENGTH) = MIN ( .TOKENLEN , KGBSS_NAME )~; 


ae 
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sane 
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1b-Se “1984 02:23:14 AX-11 Bliss- 
UAFSREVOKE_IDENT = Delete RDB holder record 1028057138 9g:SF18 LOAF .SRC RIGH 
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ID_NAME_DESCCPOINTER] = ID_NAME_BUFF ; 


i The user id parameter is required so we are guaranteed 

! that it is present. We will get the parameter before finishing 
~ Kin, the 1D name so that we have it in case we must signal an 
i 


PARSE_WILD( SD_TOKEN2, TRUE ) 


CHSCOPY ( .TOKENLEN, .TOKENPTR, %C° °, KGBSS_NAME, USER_NAME_BUFF ); 
USER_NAME_DESCCLENGTH) = MIN ( .TOKENLEN , RGBSS.NAME )~; 

USERNAME DESC POINTER] = USER_NAME_BUFF ; 

HOLDER_veEt = 0; 


i Now finish up with the ID name 
Convert the ID from ASCII to a longword format 


STATUS = SASCTOID ( NAME = I1D_NAME_DESC, 
s JOENT, 
ATTRIB = a3 
IF NOT .STATUS 
THEN 

BEGIN 

bre CNN, UNF S AE VOKEEOR. 2, ID _NAME_DESC, USER_NAME_DESC, .STATUS); 

END ; 


IF ; JDENTCUICSV_FORMAT NEQ UICSK_ID_FORMAT 


BEGIN 

LIBSSIGNAL (UAFS_NOTIDFMT); 

RETURN ; 

END 
IF ¢ 


BEGIN 
LIBSSIGNAL (UAF $_IDOUTRNG) ; 
RETURN ; 

END ; 

' 

i Now finish parsing the user ID entered 

! We will use the rights data base to translate the name 

! unless it was given in UIC format. If it is a UIC then 

! we will build a holder and make sure that it is in the rights 
: data base. 
I 


IF .UIC_FLAG 
THER 


: STATDESC, 
: VECTOR C KGBSS_NAME, BYTE J ; 


2s 
ee 


RIGHTSMAN 16-Sep-1984 AX-11 BLi ise -32 V 
yor 000 UAFSREVOKE_IDENT = Delete RDB holder record 1-00-1964 9: $3318 UAF .SRCIRIGHTSMA 


91 IF NOT PARSE_UIC ( Noreen UIC$V ~GROUPA 
ptule Vv “MEMBERS, 


THEN 


; 271 : 
> 271 ; 
:; 271 : 
s 2715 3 
3 ay 95 4 BEGIN : 
s efi 96 4 4) oe mead -UICERR, 2, .TOKENLEN, .TOKENPTR); ‘ 
3 18 re 4 Sing ‘ 
; f 9 $3 wouoencui Sv: FORMATS = UICSK_UIC_FORMAT ; : 
3 g ¢ i} Make sure that the holder exists : 
3 2724 7 3 ienp -NAME_DESCCLENGTH)_ = KGBSS_NAME ; : 
; 2725 704 TEMP” NAME DESCCPOINTE iS = TEAP ce acute ; 
: 7 $ P 2705 STATOS = SIDTOASC ( “ROLDER. VECCO3 : 
i of P 270 NAMLEN = TERP att HesceL LENGTH], : 
3 2728 20 NAMBUF = TEMPTNAME-DESC ) ; : 
: 2729 708 IF NOT .STATUS : 
: 2730 709 THEN ; 
: 3731 710 4 BEGIN : 
3; 27 § 711 4 LIBSSIGNAL (UAF$ oREVOX EERR, 2, ID_NAME_DESC, USER_NAME_DESC, ° 
2? re 4 . STATUS); : 
: 27 713 4 RETURN ; : 
3 2735 714 4 END : 
3 a7 715 3 ‘ 
; 27 716 4 BEGIN ; 
: 2738 717 & CHSCOPY (. TEMP NAME pesccL ener s A 44 NAME RE NAME Des ER] ‘ 
> 2739 718 4 .U AME_DESCCLENGTH], .USER SEEPOINTER] »; : 
i 3740 119 4 USER NAME *SesctuéneTny™ = . TEMP NAME SDESCELENGTAI : 
: 276 721 END : 
3; 274 7 ¢ ELSE ‘ 
3: 2744 7 ‘ 
> 2745 724 IF .STR_WILD : 
> 274 725 THER : 
> 276 126 4 BEGIN : 
: 2748 727 & LIBSSIGNAL (UAF$_WLDNOTALWD) ; : 
> 2749 7 g 4 RETURN ; : 
: 2750 ? ; : 
: 2751 730 : 
3; 275 731 ! ; 
: o3? f § H Convert the user ID from ASCII to a longword format : 
H 735 P 2734 STATUS = SASCTOID ( NAME = = USER NAME pESS. 2 
: 27 $ P 2735 HOLDER. vet ; 
: 275 7 ATTRIB = : 
: 2758 7 IF NOT .STATUS : 
: 2759 7 4 THEN : 
; 2760 7 4 BEGIN : 
; 2761 740 4 LIBSSIGNAL(UAFS_REVOKEERR, 2, ID_NAME_DESC, USER_NAME_DESC, : 
; 276 741 & ~ STATUS); 3 
: 276 742 & RETURN ; 3 
: 2764 74 END ; ; 
3; 2765 744 : 
: 766 745 IF ,HOLDERCUICSV_FORMAT) NEQ UICSK_UIC_FORMAT 3 
BB ve : 


| 
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RIGHTSMAN 18- -Sep-1984 AX-11 Bliss-32 V4.0-74 P 

vooe UAFSREVOKE_IDENT = Delete RDB holder record 1 Haat ¢: $315 UAF .SRCIRIGHTSMAN.B32; age 339 
: 2769 748 4 LIBSSIGNAL (UAF$_NOTUICFMT); ; 
: 2770 143 4 RETURN ; . ; 
; 2771 7 : H 
3 ak 751 3 
: e77 7 § END ; : 
3: 2774 7 3 
3; 2775 754 3 
3 76 755 ! 3 
3 a4 f § Now call the service to perform the addition ‘ 
: a P 2, STATUS = SREM_HOLDER ( ID . IDENT : 
: 27 759 HOLDER = HOLDER’) : : 
; 2781 760 3 
: 278 761 IF NOT .STATUS ; 
: 785 16¢ THEN LTBSS1GNAL(UAFS. REVOKEERR, 2, ID_NAME_DESC, USER_NAME_DESC, .STATUS) 
: 2785 764 BEGIN 3 
: 27 765 RIGHTSLIST_MODIFIED = TRUE ; 
: 27 7 L1BS$SIGNALTUAF$_REVOKEMSG, 5, ID_NAME_DESC, USER_NAME_DESC); ; 
; 2788 76 END ; : 
: 2789 768 ; 
; 2790 769 RETURN ; 3 
; 2791 770 3 
: 2792 771 1 END; 'End of UAFSREVOKE_IDENT : 
HOLDER_VEC= HOLDER ; 
-EXTRN SYSS$REM_HOLDER : 
OFFC 00000 ENTRY UAF SREVOKE IDENT, Save R2,R3,R4,R5,R6,R7,- = 2579 ; 
58 900000006 00 9E MOVAB LIBSSIGNAL, R11 : ; 
SA 99000006 0 9 MOVAB TOKENPTR, R10 : : 
59 000000006 00 9E MOVAB TOKENLEN, R9 : 3 
38 9000000 ' 00 9€ MOVAB STATUS, R : : 
57 00000000" 00 9€ MOVAB HOLDER, R : : 
SE 3 AE 9 MOVAB =-120 : ; 
70 AE 010E0000 B&F D MOVL #17694726 1p NAME _DESC > 2619 : 
74 AE D4 CLRL =ID_NAM p : : 
48 AE 010E0000 BF DO MOVL #7694 20, USER NAME _DESC > 2621 : 
4C OA 4 CLRL TOKE NAME_DESC+4 : 3 
000090006 00 OF PUSHAB TOK EADSC > 2630 : 
180 f OF PUSHAB $0.10 EN1 : : 
000000006 00 FB CALLS # otf Scer VALUE : : 
6 69 3 MOVZWL TOKENLEN, R t 2632 3 
3 Hr B MOVL TOKENPTR, . 3 3 
20 20 6 ~ 36 C MOVCS R6, (RO), #32, #32, ID_NAME_BUFF : ; 
5 2 D9 MOVL  R6, R0 > 2633 : 
2 ! CMPW 3S séRO, #32 : : 
BLEQU 1 3 3 
70 Ae B ROVU Os" ID. NAME_DESC 
74 «AE 50 At 8 MOVAB = ID_NAME NOUFF. ID_NAME_DESC+4 3 36% 3 
0 D PUSHL #- 3; 2642 é 
0188 C8 OF PUSHAB SD_TOKEN2 : : 


vets" 


UAFSREVOKE_IDENT = 
000000006 


20 20 


, ae 
ow 


000000006 


02 OB A7 


80010000 
SFFFFFFF 


20 


000000006 


MNO 
Sow 


000000006 


48 AE 20 24 
48 


Delete RDB holder 


a: 


50 28 OA 
fs 
AE 8 A 
53. 
98 Ay 
A 
8 
f 
OODE 
02 88 
000000006 rf 
50 08 Ab 
8F 50 
09 
8F 50 
08 
000000006 of 
63 000000006 4 
AE 0100000 F 
AE 
3 
? 
02. A? 
00 93 
10 > 
6A 
7E 03 
00000000G_ 8F 
00A6 
A7 co F 
et 
AE E 
E 
7E 
¢§ AE 
0 ag 
‘ee 
BE 20 «AE 
35 BE 
AE 2 &E 
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OOQOQOOCOCOCOCOSoOo 


COOOOCOOCOOCOOCOOCOOOCOOCOOOOSoOOoOoOOOSoOSooOoOSoO 


ODOOWDSO BBWLOMOY —VCVTCVT@@I"IOS f£00-0 08 2"—-0-"9 


MNS TNS OOS VOWDWOWOOWOMOCITITIIOM—-9o 90 -C0°o-"—_0 
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be 19:87:18 


ate BLi 
UAF .SRCIR 


ee PARSE _W 


TOK RENDER 
R6, (RO), 


* 82 


2, RO 

USER_NAME_DESC 
USER NAME Burr. USER_NAME_DESC+4 
HOLDER. VE 


IDENT 


i: #32, USER_NAME_BUFF 


R6, 
RQ, 
2 
’ 
R 


14 
#6, #2, IDENT+3, #2 
M#UAFS_NOTIDFMT 


IDENT, RO 
RO, #-2147418112 


RO. #-1879048193 
108 IDOUTRNG 


WS 55k 756, TEMP_NAME_DESC 
i NAME _DESC+% 


HOLDE R+2 
#3, PARSE UIC 


TOKENPTR 
TOKENLEN, -(SP) 


& 
#UAFS_UICERR 
16$ 


0432. WOLDERS? 
oa 


C 
TERE NAME “BUFF: TEMP_NAME_DESC+4 
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645 
3646 
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e 
RIGHTSMAN 16-Se 4 3:14 AX-11 Bliss-32 v4.0-7 Pa 2 R 
VOen000 14-Se Bf ¢: $7 :18 UAF .SRCJRIGHTSMA NB32: 9 335 ve 
4 11 001 BRB 13$ : 2685 : 
08 999900006 0 €9 00152 9s: BLBC ~—E_-s STR + 2726 ; 
G BF bp 1 PUSHL mars 1 but AL UD : 2727 ; 
1 15F 10$: BRB 3 : 
5 4 00161 11$: = CLRL ~ algae t 2736 ; 
so Ae oP 801 PuSHiA Use ; 
000000006 0 FB 001 CALLS sSresaset bio : : 
8 001 2 Blac | ORO, aS : 2737 
CO. OB 03 A § 148 BITB HOLDER®3, #192 + 2745 
Al 7A BEQL ssi 3 
000000006 BF Dd 001 PUSHL HUAFS NOTUICFMT + 2748 
68 1 FB 00182 12$: CALLS , LTBSSIGNAL 3 
04 001 RET + 2747 
57 DD 00186 13$:  PUSHL + 2759 
08 A? DD 001 PUSHL IDENT : 21 
000000006 00 FB 001 CALLS #2, SYSS$REM_HOLDER ; 
6 dO 001 MOVL RO. STATUS : 
E8 0019 BLBS = RO, + 2761 20 
oc Ae OF SBISA pune USER NAME DESC Rehem 
+8 AE 9F 00190 PUSHAB Ip _NAME_DESC : 4F 
DD 001A PUSHL ; 
000000006 8F DD OO1A PUSHL mars REVOKEERR : 
68 5 FB OAs CALLS LTB$SIGNAL 3 
000000006 00 01 90 TAC 15$: V8 #1, _RIGHTSLIST_MODIFIED t 2765 
48 AE 9F 001B PUSHAB USER NAME _DESC + 2766 
74 AE 9F 001B6 PUSHAB 1ID_NAME_DESC ; 
0 DD 00189 PUSHL #2 : 
000000006 8F DD 001BB PUSHL #UAF$_REVOKEMSG : 
68 04 FB O00O1C1 16$: CALLS #4, LYIBSSIGNAL 3 
04 0014 RET > 2771 


3; Routine Size: 453 bytes, Routine Base: S$CODE$ + 13AB 


3 2793 2772 «1 


: what parameters or qualifiers are used 

iF CLISPRESENT (SD_FULL) OR (NOT CLISPRESENT (SD_BRIEF)) 
THEN SHOW_ID_FULL = TRUE 
ELSE SHOW_ID_FULL = FALSE ; 

i 

Now call the common routine for show or List 


UAFSDISPLAY_IDENT () ; 
RETURN 


8 
RIGHTSMAN 1b-se 1984 02:23:14 AX-11 Bliss-32 V4.0-74 Page 93 
Von 000 UAFSSHOW_IDENT = Display rights identifiers 1 30071382 9:5 :18 UAF SREIRIGHT SHAN. B32- . (233 
3 736 48, ! ZSBTTL * UAFSSHOW_IDENT = Display rights identifiers ' 
3 ar 775 GLOBAL ROUTINE UAFSSHOW_IDENT : NOVALUE = 
3; 2798 78 BEGIN 
3; 2799 77 lee 
; 2800 a ' 
; Be 444 FUNCTIONAL DESCRIPTION: 
3; 280 781 ! Write all identifiers to SYSSOUTPUT. This routine is invoked 
; 2804 7 ¢ ! via the SHOW/IDENT command 
; 2805 7 ! 
3 784 ' INPUTS: 
: 785 ! 
; 2808 7 $ ! none 
; 2809 7 ! 
3 519 788 ! IMPLICIT INPUTS: 
: 11 789 ! 
3 ai¢ 790 ! command Line 
3; 281 791 ! 
3 2814 79 ! OUTPUTS: 
3; 2815 79 ! 
3 B18 794 H None 
3; 281 795 ! 
3; 2818 796 ! IMPLICIT OUTPUTS: 
; 2819 797 ! 
:; 2820 798 ! none 
3: 2821 799 ! 
; 28 ¢ 800 ' ROUTINE VALUE: 
; 28 801 ! 
> 2824 80 ! none 
; 2825 80 ! 
: 2826 804 ' SIDE EFFECTS: 
3; 2827 $e5 ! 
3; 2828 80 ! none 
3: 2829 $80 !=< 
3; 28 80 
3 th 80 
; 28 § 1 ! 
3 tH § : : Set the correct RAB for the output and flag a show operation 
3; 2835 1 RABPTR = OUTRAB ; 
3 2836 1 RDB_LIST_FLAG = FALSE ; 
; 2837 , 
3 83 \ ! Set the type of display. This is the same no matter 
: 1 


OWONOUF WN OOOVNOAUE WN O OONOU 


AARP Perr rere 
—OOOwNOufSWwN—o 


ae 


: 3838 gE f eno 


6 
05 
62 
EF68 = CF 


; Routine Size: 66 bytes, Routine Base: S$CODE$S + 1570 


; 2854 2832 1 


Coooooooo 


GOOCCCOOCOOoOoOooOSo 


=> 


SNRs 


—_ 


8 
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4 AX-11 Bliss-32 V4.0-74 
18 Ore eet RT ent ema o3oc7 


! End of UAFSSHOW_ IDENT 


Oy OVI WOO" WO 


wre — 


PA 


UAFSSHOW_IDENT, Save R2,R3 
CLISPRESENT, R$ 
SHOW_ID_FULL, R2 
OUT RABPTR 
RDB_LIST_FLAG 
SD_FULL 

#1; CLISPRESENT 
RO. 1 

SD. BRIEF 

#17 CLISPRESENT 
#1, SHOW_ID_FULL 


SHOW 


ID FULL 
#0, OAFSDISPLAY_IDENT 


RIGHTSMAN 1b-5e Sen-1984 14 AX-11 Bliss-32 V4.0-74 P 5 
yore UAFSSHOW_RIGHTS = Display rights held by user 305-1 3be ¢: 373] 18 UAF. SREIR NTSMAN: B3004 a9 33 
é } ZSBTTL * UAFSSHOW_RIGHTS = Display rights held by user’ 
i GLOBAL ROUTINE UAFS$SHOW_RIGHTS : NOVALUE = 
BEGIN 
144 
FUNCTIONAL DESCRIPTION: 


Write all identi tiers hol¢ by a specified identifier 
to SYSSOUTPUT. This routine is invoke 


0009 09 0D 
wmv 
OOO 


SSETERES 


' 
i 
i 
i 
i 
Beg via the SHOU/RIGHTS command 
re Es ' INPUTS: 
869 4 ' 
870 4 ! none 
871 48 ! 
ate 849 ' IMPLICIT INPUTS: 
87 850 ! 
874 851 ‘ command Line 
875 o2¢ ! 
876 85 ' OUTPUTS: 
877 854 ! 
2878 855 ! None 
3444 $28 ! 
880 tH IMPLICIT OUTPUTS: 
859 ! none 
860 ! 
861 ' ROUTINE VALUE: 
86 ! 
86 ! none 
864 ! 
865 ' SIDE EFFECTS: 
866 ! 
867 ' none 
868 eed 
869 
a ! 
i Select the output RAB and flag a show operation 


874 2 RABPTR = OUTRAB ; 
875 2 RDB_LIST_FLAG = FALSE ; 


i 
Call common routine to perform show or List 


8 
9 ; 
9 UAFSDISPLAY_RIGHTS () ; 
§ RETURN ; 

4 END ; 'End of UAFSSHOW_RIGHTS 


4 8 
RIGHTSMAN 1 $ep-1984 02:23:14 AX-11 Bliss-32 V4.0-7 P 
Woon 000 UAFSSHOW_RIGHTS = Display rights held by user Je-gebeione SS5ti1a | FONE saBbA een Reukn Os54 aoe 278 
«ENTRY UAFSSHOW RIGHTS, Save nothing 3 5 
000000006 00 nye a002 MOVAB OUTRAB, RABPTR ; : 4 
itdehtdil a) 9 p CLRB) = RDB_LI$T_FLAG + 2875 
F253 CF FB 013 caL LLS #0, ~bAFSBISPLAY RIGHTS F 880 


; Routine Size: 25 bytes, Routine Base: $CODE$ + 1582 


; 2908 2885 1 
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Von 000 UAFSWRITE_HOLDERS = Display holders of specifi 12-808 =1 382 9:8 :18 UAF SREIRIGHTSMAN: O3204 age (33) 


“oO 
= 


; 319 § } ZSBTTL ° UAFSWRITE_HOLDERS = Display holders of specified ident’ | 
: aig 3 1 Boyt ine UAFSWRITE_HOLDERS ( IDENT ) = 

: 2914 90 2 I++ 

3 2915 91 ! 

: 318 5 FUNCTIONAL DESCRIPTION: 

: 918 94 i Write all holders of the specified identifier to the output 
; 4h 44 file. 

: 3 1 897 i INPUTS: 

: ; § 344 IDENT value of identifier to find holders of 
: 3 3 01 { IMPLICIT INPUTS: 

: ase 287 ! RABPTR must point to the output RAB 

: 3399 2905 2 | OUTPUTS: 

; 2930 2906 ! 

3 344 2908 None 

: 3935 909 2 | IMPLICIT OUTPUTS: 

3: 2934 soit ! 

s $oe2 911 ! none 

3; 2936 sole § ! 

3 2937 $31 ' ROUTINE VALUE: 

3; 2938 914 § ! 

3 3444 soi? status of rights data base and write operations 
: 3341 3317 ; i SIDE EFFECTS: 

: $308 2919 ‘ i The output file is written to 

3 2944 920 4 

$808 $952 5 

: 3347 3308 

s 44 ; 3 SASSUME (KGBSS_NAME, EQL, 32 ) ; ! If length changes HOLDERLINE must also be fixed 
: 2990 $958 LITERAL 

3 2951 $356 ATTRIB_BUFFLEN = 15; 

Be BS a 

> 2954 2380 HOLDERHEAD = CSTRING (' !32AF !AS") , 

3; 2955 31 HOLDERLINE = CSTRING (° 'SQAF 'AS') , 

3 328 236 HOLDER_VEC = HOLDER : VECTOR (2,LONG) ; 

: 2958 332 LOCAL 

: 2959 935 CONTINUE : BYTE 

> 2960 9 6 CONTEXT : LONG INITIAL (0) , 

: 2961 G ATTRIB_DESC : oeTOR e’ 

3 306 3 ATTRIB_BUFF : VECTOR C ATTRIB_BUFFLEN, BYTE J) , 
> 296 9 NAME_DESC : STATDESC, 

3 2964 940 NAME _BUFF : VECTOR C KGBSS_NAME, BYTE ] , 
> 2965 941 SD_ATTRIBUTES : QUALSTR_DESC ("Attributes'), 
3; 2966 942 SD_HOLDER QUALSTR_DESC (‘Holder’), 


<z 


Be Se Be Be Se Oe Se Se Se FH Ss Se Be Be Be Fe Se He Ge Se Se Se Se Se FH Se Se Fe Se oe Se Se Se SHS Se Se Se Se Se Se Se Se Se See Se Se Se Se eeee te ee te Seas 


ues" 


97 


2997 


Sz 


Se 


Ssasssr 


WO OOO wn 


GOOOCOCCoOCoOoOoooo 
POROPOG os 


vvVv 
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bad petted bed > > > > +> O >> trys 
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UAFSWRITE_HOLDERS = Display holders of specifi 1e-sepe1984 3:57:18 ORR enBhtsen Fe aXe O33! Page 38 
943 SD_RESOURCE : QUALSTR_DESC ("RESOURCE"), 
944 SD “NORE SOURCE : QUALSTRIDESC (*NORESOURCE") ; 
946 2 STATUS = SFIND_HOLDER ( 1D = IDENT, 
94; HOLDER = HOLDER’ 
948 ATTRIB = ATTRIBUTES, 

CONTXT = CONTEXT ); 


IF NOT .STATUS 
THEN 


BEGIN 
te nate RDB _( CONTXT = CONTEXT ) ; 
IF .STATUS cot SS$_NOSUCHID 

Th HEN RETURN SS$_NORMAL 

ELSE RETURN .STATUS ; 


woovooonoov0ono 


PAAAAOOSMMAMNMAGIVNVIVII 


BEGIN 
Print a header 


FAOMAC ( HOLDERHEAD 
ERCLENG CTH], .SD_HOLDERCPOINTER], 
$3  RTTRIBUTES ; 


ONTINUE = TRUE ; 
DO 
BEGIN 


i Init the name descripto 
: and find the ASCII ne "ot the identifier 


NAME_DESCCPOINTER] = NAME BUF F e 
NAME ~ DESC LENGTH] = ane esert 
CHSFILL ( %C' eDESCLLENGHNI “WARE gPESCCPOINTERI »; 
STATUS. = sibroage’ DER_VEC 
wen = WANE Oeste edt, 
NAMBUF = NAME-DESC ) ; 


SOOONOUE WIN OO OONOUE WN" OOONOU SW O” 


— 


oo 
oo 
= 


Build the attribute string 
Nae BUFFLEN, ATTRIB_BUFF ) ; 


LEN 
OINTER] = ATTRIB BUFF ; 
TES AND KGBSM_RESOURCE ) 


ooo 
cs 


CHSE ILL 


3333 


333 


oO 
o 
“ 


RESOURC CLENGTH) sp RESOURCE [POINTER], 
-ATTRIB_DESCCCENGTHJ) ) ; 


CENGTH) + .SD_RESOURCECLENGTH) + 1 ; 


33 
soa. 


Ant 
ATTRIB DESCCL 
“DES 


3 

; 

3 

é 

- 4 

Loop until we find all the identifiers held by this guy 
C 

4 

3 

4 

4 

4 

6 

4 TTRIB 
4 


end 


mmm mt al in a ii ia a i ta tac aaa ii a IE Ea i I NL a I ean 1 RAN ih dNR i SI nate ae a ioe ie a 


53 
6C 


20 


ae 
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RIGHTSMAN ese 1984 02:23:14 AX-11 Bliss-32 V 
VOee000 UAFSWRITE_HOLDERS = Display holders of specifi 12286871382 96:37:18 UAF .SRCIRIGHTSMA 


> 3024 900 3 ELSE 

: 3025 1 i BEGIN 

; 30 $ 0 : 4 CHSMOVE ( .SD_NORESOURCECLENGTH], .SD_NOR SOURCECPOINTER], 
: 30 90 4 ATTRIB BUFFL.ATT RIB g bescteenern : 

; 30 § 04 4 ATTRIB_DESCCLENGTH) = 

: 30 005 4 ATTRIB_DESCCLENGTH] + .SD_NORESOURCECLENGTH) + 1 ; 
; 3050 B06 END 3 

; 3031 00 

: 30 é 008 ' 

3 ° B98 Output the Line 

: 3035 P 3011 EAOMAC ( HOLDERL INE 

3 3036 P Og NAME DESCELENGTHI, .NAME_DESCCPOINTER], ! Identifier name 
3 b3f Biz ATTRIB_D ' Attributes 
: 3039 P 3015 STATUS = SFIND_HOLDER ( ID = . IDENT, 

: 3040 P 3016 HOLDER = HOLDER. 

: 3041 P 3017 ATTRIB = ATTRIBUTES, 

: ek 018 CONTXT = CONTEXT ) ; 

: 304 019 IF NOT .STATUS 

> 3044 020 3 THEN 

: 3045 3021 4 BEGIN 

: 3046 30 2 4 CONTINUE = 

: 3047 302 4 IF STATUS Eat E56 NOSUCHID 

; 3048 Hi 4 4 TH EN STATUS = SS$_NORMAL ; 

: 3049 025 : 

; 3050 3026 

: 3051 027 END 

; 3032 30 8 i WHILE .CONTINUE; 

: 305 029 

: 3054 3030 2 SFINISH_RDB ( CONTXT = CONTEXT ) ; 

: 3055 3031 : 

: 3056 3032 RETURN .STATUS ; 

: 3057 3033 2 

: 3058 3034 1 END: ! End of UAFSWRITE_HOLDERS 


-PSECT S$PLITS,NOWRT,NOEXE,2 


0D OO007F P. ; 13 
53 41 21 20 46 41 32 33 21 20 20 20 20 90080 "ASCIT \ !32AF !AS\ 
53 41 21 46 41 33 21 0 20 3h BOOB tee eee TF ousonr asi 
oa oh BH OB BS 8 8 2 ef 0096 P.AAS: “ASCII \Attributes\ 
22 $5 6% GC GF 48 OOOAS PLAT: CASCI] 
us 43 92 55 GF G5 52 OOOAR P:AAU: “ASCII \RESOURCE\ 
45 43 §2 §5 GF 83 45 82 GF GE 000B3 PLAAV: “ASCII \NORESOURCE\ 
HOLDERHEAD= P.AAQ 
HOLDERL INE= PAAR 
HOLDER. VEC= 


OLDER 
»EXTRN SYSSFIND 1 LDER 
~EXTRN SYSSEINISH. ORDB. SYSS$PUT 


-PSECT S$CODE$,NOWRT,2 


RIGHTSMAN S$ep-1984 3:14 AX-11 Bliss-32 V4.0-74 P 1 
yooe 0 UAFSWRITE_HOLDERS - Display holders of specifi 16- sen 1984 96: $3318 :18 UAF .SRCIRIGHTSMAN.B32; se @ 
sep capensis wage R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 eed 
ave R2, oR5,R6,R7,R8B,R9, P 3 
58 00 006 0 9 002 MOVAB RABPTR, R14 : 
A 000000006 9—E 000 MOVAB FAODSC. R10 ; 
9 00 gE 19 MOVAB ATTRIBUTES, R9 : 
8 E 0001 MOVAB STATUS, R : 
000000' 00 gE 0 1E MOVAB P.AAS, R7 : 
5E AO AE 9E MOVAB 96(S6), SP : 
7E 04 00009 CLRL NTEXT : 38 9) 
5C AE 010E0000 8F Dd 000 : MOVL ibe 4720, ATTRIB_DESC : 2937 
60 AE D4 000 CLRL TRIB + : 
44 AE 0100000 BF DO 00 6 MOVL  #17694720, NAME_DESC + 2939 
48 AE D4 0 E CLRL NAME DESC+4 : 
1¢ AE O10EQO0A 8F 00 00041 MOVL #17694730, SD_ATTRIBUTES + 2941 
20 AE 67 3 0049 MOVAB P.AAS 5 * ATTRIBUTES+4 : 
14 AE 010E0006 8F DO 00040 MOVL #176947267 + 2942 
18 =A OA A? 9E 00055 MOVAB P. AAT $ “ : | 
OC AE 010E0008 8F 00 0005A MOVL #i769h7 85 SD_RESOURCE : 2943 
10 AE 10 A? 9E 90062 MOVAB AAU ESOURCE+4 F 
04 AE O10E000A BF 00 0006 MOVL  #176947307 SD_NORESOURCE + 2944 
08 AE 18 A? 9E O006F MOVAB P.AAV, SD NORESOURCE+4 ; 
4200 8F BB 00074 PUSHR #*M<R9,SPS + 2949 
04 Ad 9F 00078 PUSHAB HOLDER : 
9% AC DD 00078 PUSHL IDENT ; 
000000006 00 04 FB OO07E CALLS #4, SYSSFIND_HOLDER : 
68 50 D0 0008 MOVL RO, STATUS ; 
1A 68 £8 00088 BLBS STATUS, 2$ : 2950 
5E DD 00088 PUSHL SP : 2953 
000000006 00 01 FB 90080 CALLS #1, SYSSFINISH_RDB ; 
50 68 DO 00094 MOVL STATUS, RO + 2954 
000021EC BF 50 01 00097 CMPL RO, #8684 ; 
01 13 0009E BEQL «18 : 
04 000A0 RET : 
50 01 D0 000A1 1$ MOVL #1, RO : 2956 
04 000A4 RET ; 
6A E4 A7 9B OOO0AS 2$ MOVZBW HOLDERHEAD, FAODSC ; 2965 
04 AA ES A7 9E O00A9 MOVAB eyes pat FAODSC+4 é 
1C AE 9F OOOAE PUSHAB SD_ATTRIBUTES : 
1¢ AE DD 00081 PUSHL SD “HOLDER +4 : 
7E 1¢ AE 3C 00084 MOVZWL SD7HOLDER, -(SP) : 
000000006 00 9F 000B8 PUSHAB DI DS ; 
7E 68 ge C1 0008 ADDL3 #34, RABPTR, -(SP) : 
A DD 000C PUSHL ; 
000000006 00 06 FB 000C4 CALLS #6, SYSSFAO : 
68 DD 000CB PUSHL RABPTR ; 
000000006 90 1 FB OCD CALLS #1, SYSSPUT ; 
é 1 90 00004 MOVE #1. CONTINUE + 2972 
48 AE 24 Ar 3 O07 3$: MOVAB NAME BUFF. NAME _DESC+4 : 2979 
44 «OA 2 8 oo MOV 432, NAM peste : 2980 
44 AE 20 6E Ms 0 C E mMOvCS # (Spy “#32, NAME_DESC, @NAME_DESC+4 + 2981 
i 33 CLRQ = =(SP) > 2984 
7E D4 OOOEA CLRL = = (SP) : 
50 AE 9F OOOEC PUSHAB NAME_DESC ; 
54 «AE «OOF OOOEF PUSHAB NAME ~DESC : 
06 ad DD Ore PUSHL HOLDER VEC : 
000000006 00 06 FB OOOF CALLS #6, SYSSIDTOASC : 


ae 


OF 


; Routine Size: 


; 3059 


1 
UAFSWRITE_HOLDERS = Display holders of specifi 1 
8 0 FC 
ee 80 3¢ Soorr 
4C AE 1 
60 A ce AE 8E 001 
85 5C AE 3C 001 
>I 4C OA 3 11 
11 6 11 
10 3 oc AE 28 0011 
C AE 3C 00120 
1 OC AE 3C 00124 
OF 11 00128 
08 BF Of AE 28 OO12A 
C AE 3C 00151 
1 06 =A f 4 5 
0 51 C 139 
50 01 Al Bat C 
6A Fe AZ 98 00141 
04 AA F A? 9E Bata 
5C AE 9F OO14A 
4C AE ge 014D 
7E 4C AE 3C 00150 
000000006 9 oF Biz 
68 g C1 OO15SA 
A 0D oF 
000000006 00 v6 4 abe 
000000006 00 01 FB 00169 
4200 8F ge 0170 
04 AD 9F 00174 
04 AC DD 00177 
000000006 re 9 08 HG 
OE 50 3 01 
56 94 3 7 
OOOO2Z1EC 8F 33 o} } 9 
O18 soi 
Fae 5 $198 
5E DD 00198 
000000006 98 4 a 
04 001A7 


5C 


20 


6140 


6140 


AE 


7E 


424 bytes, 


3035 


1 


Routine Base: 


SCODES + 15CB 


“$ 
“S 


4$: 


5$: 


9 


ep-198e 89:81:18 — EUAF-SRCIRTGHTSMAN: 83211 


AT 
ATTRIB_DESC+4 
RO 
R1 

4$ 
@sD_RESOURCE*4, (R1) CROJ 
R1 

RESOURCE, @SD_NORESOURCE*4, (R1) CROJ 

_NORESOURCE, R1 

* RO, ATTRIB. DESC 

(DERLINE, FAODSC 

LDERLINE+1, FAODSC+4 

DESC 

NAME _DESC+4 

NAME “DESC, =(SP) 

DIS 

#34, RABPTR, -(SP) 

#6, SYSSFAO 

#1, SYSS$PUT 

#AM<R9, SP> 

HOLDER 

IDENT 

#4, SYSSFIND_HOLDER 

RO, STATUS 


rPIITrBWYPKrm>v yy yO YY 


cata 

RO, #8684 

6$ 

#1, STATUS 
silane 7$ 


SP 
#1, SYSSFINISH_RDB 
STATUS, RO 


Page 101 
age 39) 


2989 
3331 
991 
996 
992 
$538 
99 
So08 
005 


3013 


; 3018 
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Wen 000 UAFSWRITE_IDENT = Display identifiers 19-808- 1382 99:6 :18 LOAF LSRCIRIGHTSMAN: B32; ° (26) 

; R6) 8 § } ZSBTTL ' UAFSWRITE_IDENT = Display identifiers’ 

; 06 8 8 ROUTINE UAFSWRITE_IDENT ( START_IDENT, FULLFLAG, WILD_CARD ) = 

; 3064 BEGIN 

Be Be Gs 

: O87 Oc¢ | FUNCTIONAL DESCRIPTION: 

: 069 O44 Write specified identifier(s) to the oupput file 

: O71 04g | INPUTS: 

: 307 we i START_IDENT value of identifier to be displayed or 

: 3074 049 ' -1 if all identifiers are to be displayed. 

; 3075 050 : FULLFLAG flag specifying if a full or brief Listing 

; 3076 051 ! should be created 

$ he p26 WILD_CARD This is a wild card display 

: 079 054 { IMPLICIT INPUTS: 

; st p28 RDB_HEADER_FLAG = true if header is to be output else false 

: 308 058 2 | ouTPUTS: 

: 35084 059 ! 

3 tH 44 } None 

: 3087 06¢ i IMPLICIT OUTPUTS: 

; 35088 06 ! 

3 ie Bee none 

: 091 066 ! ROUTINE VALUE: 

; 098 ¥¢3 status of RDB and write operations 

: 3095 970 | SIDE EFFECTS: 

: 3097 ore i The output file is written to 

; 3098 07 ! 

; 3099 074 leo 

: 310% Of 

: 106 or SASSUME (KGBSS_NAME, EQL, 32 ) ; ! If Length changes IDENTLINE must also be fixed 

: 31 79 2 LITERAL 

; 198 fe ATTRIB_BUFFLEN = 15; 

; 199 08¢ 2 BIND | 

; 3108 08 IDENTHEAD = CSTRING (* '!32AF '15AF 'AS") , 

; 3109 0 IDENTLINE = CSTRING (° !32AF i 1X 'AS') , 

3 19 3 5 IDENTLINEU = CSTRING (* '!32AF C!OW,!OW) 'AS') ; 

: 18 0 LOCAL 

3 311 0 3 CONTEXT LONG INITIAL (0) , 

3; 35114 ATTRIB_DESC mECTOR Ee” 

3 3115 ATTRIB_BUFF VECTOR C ATTRIB_BUFFLEN, BYTE J , 

: 116 91 NAME _DESC ore toe Ske | 

; 311 92 NAME _ BUF F VECTOR C KGBSS_NAME, BYTE ] , | 
| 
| 
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UAFSWRITE_IDENT = Display identifiers 18-Se0-1984 96:39:18 UAF .SRCIRIGHTSMAN.B32; 
93 RESULT_ID : $BBLOCK [4] , 
94 SD_ATTRIBUTES : QUALSTR_DESC (‘Attributes’), 
95 SD NAME : QUALSTR-DESC ("Name 
09 SD“RESOURCE : QUALSTR-DESC ('RES Gurte') 
09 SD “NORE SOURCE : QUALSTR-DESC ('NO ORE SOURCE" i 
09 SD-VALUE : QUALSTRIDESC (*Value’) 
RESULT 1D = =0; 
IDENT 20; 
NAME _DESCCPOINTER) = NAME BUFF ; 
AME™DESCCLENGTH) = KGBSS_NAME ; 
STATOS = TD TOASC ( 1D = . START DENT . 
LEN = NAME_DESCCLENGTHI 
ESID = RESUCT ID . 
ATTRIB = ATTRIBOTES , 
CONTXT = CONTEXT ) ; 


IF NOT .STATUS 
THEN 
BEGIN 
SFINISH_RDB ( CONTXT = CONTEXT ) ; 
RETURN - TSTATUS ; 
ELSE IF .RDB_HEADER_FLAG 
BEGIN 
Print a header 
FAOMAC ( IDENTHEAD 
ENGTH], .SD_NAMECPOINTER, 
-SD VALUE LENGTHS, .$B_VALUECPOINTER], 
SD ATTRIBUTES ) 
RDB HEADER PFLAG = FALSE ; 


i] 
: Loop until we find all the identifiers 
DO 

BEGIN 


; Suite the attribute string 
g At Tale grureen. ATTRIB_BUFF ) ; 


ENGTH) = = Srinse BUFF ; 
S AND KGBSM_RESOURCE ) 


FUN OOO NAUE WN $C OONOULS WN “OV ONAV EWN OO 


.$D_RESOURCECLENGTH] :$? RESOURCE CPOINTER], 
ATTRIB BUFFL.ATTRIB_OESCCCENGTHJ) ) ; 
ATTRIB DESCCLENGTH) = 
TTRIB_DESCCLENGTH) + .SD_RESOURCECLENGTH) + 1 ; 


ee ee ee ee ee ec ce ce ee a ee ee ce ee De ed ed ed 


BPP PEE EEE AMAIA PINIPOPINPONININDY) 2 OO SS SS OOOOOOOOCOO 
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RIGHTSMAN 16-Sep-1984 02:23:14 AX=11 Bliss-32 V4.0-74 Page 104 UA 
Voen000 UAFSWRITE_IDENT = Display identifiers 12-80 8=}3Re 06:38:18 YOAF SREIRIOHT SHAN: B30, 9° 26) 

; 317 1 END 3 
ae } ELSE cin | 
; 178 153 4 CHSMOVE ( .SD_NORESOURCECLENGTH], .SD NORE SOURCECPOINTER], ; 
: 31 154 4 ATTRIB BUFFC ATTRIB DESCELERGTH »; 3 
3 19 155 4 ATTRIB_DESCCLENGTH] = ; 
; 3181 1 $ 4 -ATTRIB_DESCCLENGTH] + .SD_NORESOURCECLENGTH] + 1 ; ; 
: 186 1 END ; 3 
. a : 
; ; 5 199 Output the Line : 
; 187 16¢ if -RESULT_IDCUICSV_FORMAT] EQL UICSK_UIC_FORMAT ; 
: 3189 P 3164 FAOMAC ( IDENTLINEU : 
: 3190 P 3165 .NAME_DESCCLENGTH : 
: 3191 P 166 “NAME ~DESCLPOINTERI ' Identifier name ; 
; 198 P 316 -RESUCT_IDCUIC$V_GROUP i Group number : 
3; 319 P 3168 »-RESULT_ID UICSV=MEMBERS, ! member number : 
: 194 169 4 ape TTRIB_BESC ) i attributes : 
: 3196 p 3171 FAOMAC ( IDENTLINE : 
: 3197 P 1% NAME DESCCLENGTH] ; 
: 3198 p 317 “NAME DESCLPOINTERI, ' Identifier name ; 
: 3199 P 3174 “RESULT _ID i Identifier value ; 
3 $0) 125 ATTRIB_BESC ) ; i Attributes 
; $06 179 | If this is a show /FULL then List this guys holders : 
Be | tyr ; 
: 3206 181 4 BEGIN : 
: 3207 188 4 STATUS = UAFSWRITE_HOLDERS ( .RESULT_ID ) ; ; 
oe ol : 
; 3210 185 § BEGIN : 
> 3211 186 3 SFINISH_RDB ( CONTXT = CONTEXT ) ; : 
; lg 18 RETURN <STATUS ; ; 
3 1 188 4 END ; 3 
: 14 189 END ; 3 
et : 
: 13 19 NAME_DESCCLENGTH] = KGBSS_NAME ; ; 
3 18 p 319 STATOS = SIDTOASC ¢ ID = . START DENT. : 
: 321 P 3194 = NAME_DESCCLENGTH) , : 
: 20 P 3195 = NAME~DESC , ; 
: 3221 P 196 RESID = RESULT ID ; ; 
; 3¢ P 319 ATTRIB = ATTRIBOTES , : 
: 198 CONTXT = CONTEXT ) ; : 
: 3224 19 IF (NOT .STATUS) AND : 
: 3225 4 (.STATUS NEQ SS$_NOSUCHID ) ; 
3 $ ie THEN : 
: t 2 : 
: § 4 RETURN <STATUS ; F 
: 3230 5 ; END ; F 
3; 3231 END 3 


peele 
FINISH Ree ( CONTXT = CONTEXT ) ; 


9 
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Voen080 UAFSWRITE_IDENT = Display identifiers 12nep- obs FSiStiis | HONE eh te nF eakn 935° age 1953 
; 7 ! 3 
: : 08 Only continue looping if we are dealing with a wild card : 
i 3235 19 WHILE ( .STATUS ) AND ( .WILD_CARD ) ; ; 
; 1 SFINISH_RDB ( CONTXT = CONTEXT ) ; ; 
; 33 1 RETURN TRUE ; : 
> 3241 16 1 END ; ! End of UAFSWRITE_IDENT ; 
.PSECT S$PLIT$,NOWRT ,NOEXE 2 : 
11 QOOBD P.AAW: .BYTE 17 ; ; 
21 20 46 41 35 31 21 20 46 41 32 33 21 20 20 OBE “ASCII \ !32AF !15AF !AS\ : ; 
1 Boer P.AAX: .BYTE 22 : : 
20 20 4C 58 21 58 25 20 46 41 32 33 31 20 : D0 "ASCIT \ !32AF %X!XL 'AS\ : : 
53 41 21 20 20 20 : OonF : ; 
1 e6 P.AAY BYTE 21 : 3 
4F 21 2C S7 4F 21 SB 20 46 41 32 33 21 20 20 O0E ASCII \ !32AF C!OW,!Ow) !AS\ : : 
53 41 21 20 5D O0F6 : ; 
73 65 74 75 62 69 é 4 74 4&1 OOOFC P.AAZ: ASCII \Attributes\ : ; 
6 $8 61 $s 0106 P.ABA: ASCII ame : 3 
45 43 52 55 4F 45 52 OO10A P.ABB: <ASCII \RESOURCE\ : ; 
45 463 52 55 4F 53 45 52 GF 4E 00112 P.ABC: ASCII \NORESOURCE\ : ; 
65 75 6C 61 56 OO11C P.ABD: .ASCII \Value\ : ; 
IDENTHEAD= P. AAW : 
IDENTLINE= P-AAX ; 
IDENTLINEU= P-AAY 2 
-PSECT S$CODE$,NOWRT,2 ; 
OFFC 00000 UAFSWRITE_IDENT: : 
-@ORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 3038 3 
58 90000006 9E 9002 MOVAB DISDSC, R14 : : 
5a 000000006 9E 000 MOVAB RABPTR, R10 : ; 
9 ' 9€ 0001 MOVAB ATTRIBUTES, R9 : ; 
8 ' 9€ 0001 MOVAB STATUS, RS : ; 
G — 0101 MOVAB FAODSC. R : ; 
f E 0002 MOVAB PAL R6 : : 
E 98 AE i 0 VAB -104(§P), SP : 3 
7E D CLRL CONTEX > 3039 : 
64 AE 010E0000 8F 00 MOVL § #17694720, ATTRIB_DESC : 3089 : 
AE D4 A CLRL ATTRIB DESce4 : : 
4C AE 010€00 BF DO MOVL  #17694720, NAME_DESC : 3091 ; 
AE D4 0004 CLRL NAME DESC #4 : ; 
4 AE 010E000A BF 0 OVE #17694 . $d ATTRIBUTES ; 30% 3 
1¢ AE 010E0004 8F 06 MOVL Fipe47545 SD_NAME : 3095 ; 
; AE A Ab f C MOVAB P ABA 3. + : 3 
4 AE 0100008 8F 61 MOVL #176947287 SD RESOURCE + 3096 3 
18 AE —E Ab 9E 00069 MOVAB P.ABB, SD_RESOURCE+4 : ; 


RIGHTSMAN 18-50 Sep-1 AX-11 iss-32 V4.0-74 U 
vOe-000 UAFSWRITE_IDENT = Display identifiers 1 7330-1382 9¢: $7: 18 UAF . sre RLgaTSMAN 036; Page 398 vc 
AE O10EQ00A «BF ODO VL 417696730, ae NORE SOURCE ; 3097 : 

6 AE 16 A6 5 $f MOVAB ABe $_NO ORESOURCE+4 : . ; 

04 AE 010009 8F ; 7 MOVL 4i? 47257 sp_v VALUE : 3098 ; 

8 AE Ab t MOVAB P.ABD, SD_VALOE+ : F 

7 D CLRL eg +31 ; 

of A p4 A CLRL_ —s IDEN + 3101 ; 

54 AE A : MOVAB NAME puree NAME _DESC+4 : 3103 

0 AE 2 “ MOV #3ee i : 31 ; 

04 AE OF PUSHAB CONTE Stext + 3110 ; 

59 DD PUSHL R : ; 

8 AE 9F 00098 PUSHAB RESULT ID : ; 

f AE 9F Ki PUSHAB DESC ; : 

6 AE 9F OOOA PUSHAB NAME DEC : ; 

4 AC DD O00A4 PUSHL S$TART_IDENT : ; 

000000006 0 Q FB OOOA7 CALLS #6, STSSIDTOASC : ; 

6 dO 00 ag MOVL Tus : 3 

0 6 5 008 BLBS Ai TATOS. + 3111 ; 

011A 31 00084 BRW 4 : : 

35 FC OAQ 34 00B7 1$: BLBC  RDB_HEADER FLAG 2s + 3117 ; 

67 Ci Ab 0088 MOVZBW IDERTHEAD FAODSC : 3126 ; 

04 A? ce A6 9E OOBF MOVAB IDENT HEADS FAODSC+4 : ; 

é AE 9F 000C4 PUSHAB SD_ATTRIBUTES : ; 

0 A po 007 PUSHL SD-VALUE+4 : : 

7E 10 AE 3C OOOCA MOVZWL SD“VALUE, -(SP) ; : 

30 AE bb OCE PUSHL “NAME + : ; 

7E 0 AE 3C 00001 MOVZ2WL SD"NAME, -(SP) : ; 

5B 0D 000D PUSH : ; 

7E 6A C1 000D ADDL3 #34, RABPTR, -(SP) : ; 
DD 000DB PUSHL 7 : ; 

000000006 00 8 FB 000DD CALLS #8, SYSSFAO : ; 

A DD 000E4 PUSHL PTR : ; 

000000006 00 1 FB OO0E6 CALLS #1, SYS$PU : ; 

FC =6A9 «94 OOOED CLRB_ = RDB_HEA DER #3°° : 3127 ; 

OF 20 6E 00 2¢ tte 2$: MOVCS #0,~(SP), #15, ATTRIB_BUFF : 3140 3 
68 AE B84 O00F CLRW ATTRIB_DESC + 3141 ; 

6C AE 8 AE 9E OOOFA VAB ATTRIB“BUFF, ATTRIB_DESC+4 : 142 : 

3 68 AE 3C OOOFF MOVZWL ATTRIB-DESC. RO : 314 : 

1 A é 1 3 VAB_  ATTRIB“BUFF, R1 ; 3 

11 6 1 BLBC. ATTRIBOTES, 3$ > 3143 : 

6140 1c f 18 AE 28 OO10A VC3- SD_RESOURCE, i RESOURCE+4, (R1)CROJ : 3147 : 
68 AE 3C 0011 MOVZ2WL ATTRIB DESC. R : 3149 : 

1 1 AE ¢ 1 MOV ZWL SD_RESOURCE, R ; : 

6140 14 . 10 AE 28 0011B 3s: mMOVC3 SD NORE SOURCE @SD_NORESOURCE+4, (R1)CROJ 3 3154 : 
68 AE 3C 001 MOV2WL artis RO : 3156 : 

1 1 AF 1 MOVZWL NORESOUR fe, R1 ; : 

0 CO OO120A 4$ ADDL ; : 

68 AE 50 1 Al 001 ADDW a RO pet tne DESC : : 
5 6A 2 f 1 ADDL 4, , RO : 3169 : 
CO. BF 03 AE 1 BITS RESULT, ait #192 : 3162 : 

2€ 12 001 BNEQ = 5 ; : 

67 EA A 1 MOV7BW IDENTLINEU, FAODSC > 3169 : 

04 A? EB a6 9E 00141 MOVAB IDENTLINEU+1, FAODSC+4 ; : 

6 AE OF 146 PUSHAB ATIRI C ; ; 

7E 4 AE 3C 0014 MOV ZWL RESULT 1D : 3 

7E OA AE OE 00 EF 00140 EXT2v. #0, #1%, Resurt. 1D+2, -(SP) ; ; 


—-$ — — — —___—__ —_ cc 


K RB 
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0 AE pp 1 ; PUSHL NAME _DESC+4 ; 
7E AE 3C 001 MOVZWL ERDESt =(SP) : 
lt a A : 
000000006 00 : Fe f CALLS #8, SYSSFAO 
67 D3 A B 169 5$: MOVZBW IDENTLINE, FAODSC : 
04 A? Dé Ag E MOVAB ATTAIB.pESe FAODSC+4 ; 
4 AE DD 0017 PUSHL RESULT~ID 
C AE pp 17 PUSHL NAME  DESC+4 
7E € AE 3C 00178 MOVZWL EADESC * ssp) 
ol 3: | i 
ae CTD oo, Bae Ceti 
000000006 00 01 FB 001 é ; CALLS #1, SYSS$PU 
0D 08 AC E9 0195 BLBC Rest t Us 
call Ri AS pee soem 
28 68 £9 b1a3 BLBC Os ST TATOS. $ 
50 AE 80 O1A6 7$: MOVW #32 NAME _DESC 
% 8 bb oolAD PUSHL Context 
8 AE 9F OOTAF PUSHAB RESULT_ID 
C AE OF 9189 PUSHAB NAME_DESC 
60 AE 9F 001B PUSHAB NAME DESC 
04 AC DD 00188 PUSHL START IDENT 
000000006 00 6 FB 001B CALLS #6, SYSSIDTOASC 
os 
O00021EC BF 30 D o1¢8 CPL R * #8684 
04 AE OF Sib, 8$: PUSHAB CONTEXT 
000000006 90 01 FB 01D4 CALLS #1 Arg SSEINISH_RDB 
a. a 
07 68 £9 OO1DF 9S: BLBC STATUS 108, 
OC AG AT SSteE BEE yt. 
04 AF F 188 10$: | PUSHAB CON rex xT 
000000006 90 : FB TEC CALLS #1, SYSSFINISH_RDB 
Ad TAN ores 


3; Routine Size: 503 bytes, Routine Base: $CODE$ + 1773 


; 3242 3217 1 
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4G 
te gL OGAL ROUTINE UAFSWRITE_RIGHTS ( HOLDER_ADDR ) = 
++ 
FUNCTIONAL DESCRIPTION: 
Display all identifiers held by the specified identifier 
INPUTS: 


HOLDER address of a quadword holder constructed from the id 
value of the identifier. 


IMPLICIT INPUTS: 
RDB_HEADER_FLAG = true if a header is to be output, else false. 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
The output file is written to 


100 09 C9 09 SINISE SSNS SSI PA AAA AAA AMM MIMIIVMIIUIUIUIT ES 
WN 9 OONOUS WN O OBNOULSWN (OO ONOUS WH —OWO0 


LITERAL 
ATTRIB_BUFFLEN 


DWONAVES WN OOONAUE WN O OONAUES WN 2 OC ODNOUS WR 


' 
— 
Mw 
. 


| } ZSBTTL * UAFSWRITE_RIGHTS = Display rights held by user' 
BIN 
2 


DARED GGA BE EB AAW WWIII nonononononons — 


POPIPIPOPIPONPIPYPINIPIPYPIPYININPINPIPINININININPOP PON PoNy 


"ISGAF !15AF !AS") , 
, identifiers held by :AS i a 


Morr 
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Wihonononoforofrores 
SSSLERRAN= 
WAWIAAAAA 


HTSLIN a ade ; : 
HTSLINEU * !32AF C!OW,!OW) !AS*) ; 


NUE : BYTE 
T : LONG [NITIAL (0) , 


MOTUPORININY 
SAAS 
ele.) w 


ESC : STATDESC, 

UF F : VECTOR C ATTRIB_BUFFLEN, BYTE J , 
C : STATDESC, 

F : VECTOR C’KGBSS_NAME, BYTE ) , 
BUTES : QUALSTR_DESC ("Attributes"), 


Be Be Be Se Se Se Se Se Se Se Se Ge Se Se Be Ge Ge ee Se Ge Fe Ge Ge Fe Ge Fe Ge Ge Ge Fe Ge Ss Ge Se Se Ge Se Ge ee Se Se Se Se Ge Se Se Sees Se Sete Sse Sees tesses 


WAIN AI AAA A AAA A AAA AAA 


SASSUME (KGBSS_NAME, EQL, 32 ) ; ! If Length changes RIGHTSLINE must also be fixed 


Page 108 
age 39 
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75 SD_NAME : QUALSTR_DESC (‘Identifier’), 
7 SD “RESOURCE : QUALSTRIDESC ('RESOURCE'), 
SD"“NORE SOURCE : QUALSTR-DESC ("NORESOURCE') , 
SD "VALUE : QUALSTRIDESC (‘Value’) ; 
STATUS = SFIND_HELD ( HOLDER = .HOLDER_ADDR, 
1D = IDENT 
ATTRIB = ATTRIBUTES, 
CONTXT = CONTEXT ) : 
IF NOT .STATUS 
THEN 
BEGIN 
SFINISH_RDB ( CONTXT = CONTEXT ) ; 
IF .STATUS EQL SS$_NOSUCHID 
THEN STATUS = SS$_NORMAL ; 
RETURN .STATUS ; 
END 
ELSE 
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BEGIN 


i Init the name descriptor 
and find the ASCII name of the holder 


NAME_DESCCPOINTER] = NAME_BUFF ; 
NAME DESCCLENGTH) = KGBS$S_NAME 


CHSFILL ¢ «NAME _DESCCLENGTH], .NAME_DESCCPOINTER ) ; 
P STATUS = SIDTOASC ( ID = ..HOLDER_ADDR 
P NAMLEN = NAME_DESCCLENGTH), 
NAMBUF = NAME-DESC ) ; 


i] 

Print a header 

IF .RDB_HEADER_FLAG 
THEN 


BSDOOGOOGOCSOOSO0OO000000 0000000000 09 0000000900 SI 


WAIN. AANI AAI POPU PIPPI POPONIDY 2 tS SS SS SS S| OOOO 


BEGIN 

FAOMAC ( RIGHTSHEAD1, 
.SD_NAMECLENGTH], .SD_NAMECPOINTER], 
*SD VALUECLENGTHI, .$B_VALUECPOINTERJ, 


$D_ATTRI 
RDB_HEADER_ FLAG = FALSE ; 


IF .STR_WILD OR .MEM WILD OR .GRP_WILD THEN 
FAOMAC ( RIGHTSHEAD2, NAME_DESC ) ; 


WAIN ANAWWWIWIWIIWInononononononond 


Se 
CONAULSWN —$OVODONOULSWN “OVONOUS WHO” 


WWWWNWAANNAWANNAANNIAAANAA 


AANA ANA AWAWAANW A AANNANWt 


vuvuv 


ooooo 
oo VUEWr— 
vuvuv 
WNINIANINIAN AANA AA WWWWNANANANWAAWAAA NAAN 


yates 
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ts as st es st 


| Loop until we find all the identifiers held by this guy 
CONTINUE = TRUE ; 
BEGIN 


i Init the name descriptor ; 
} and find the ASCII name of the identifier 


AANA AAA ANA NAA 


Wrornononoronofrorfoneny 
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CONOUSWwN—OoO0 
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AX-11 Bliss-32 V4.0-74 Page 1 : 
HTSMAN.B32; (27) 

NAME_DESC[POINTER] = NAME_BUF 

NAME “DESCCLENGTH] i. = GBSSN he’ 

CHSFILL ( E-DESCLLENGHNI, .NAME_DESCCPOINTER] ) ; 


C! 

STATUS = SIDTOASC IDENT 
NAME_DESCCLENGTH), 
NAME-DESC ) ; 


ATTRIB BUFFLEN, ATTRIB_BUFF ) ; 


INTER] = = ATERIB_B UFF ; 
ES AND KGBSM_ RESOURCE’ ) 


Ss UFFE CAP TRIOD - SD eer. 
FEC.ATTRIB SESCCCENGTHI ; 
+ 


ENGTH] + .SD_RESOURCECLENGTH] + 1 ; 


CHSMOVE ( .SD_NORESOURCECLENGTH], .SD_NOR i weeociemees 
ATTRIB "+ eee ATTRIB_DESCCLENGTH 

ATTRIB_DESCCLENGTH) = 

enh RIS_DESCLLENGTHI + .SD petunetitinent +1; 

} 

Output the Line 


if - IDENTCUICSV_FORMAT] EQL UICS$K_UIC_FORMAT 


FAOMAC ( RIGHTSLINE 
NAME _D SCELENGTH] 
NAME ~DESCCPOINTER ' Identifier name 
- IDENT UIC$V_GROUP ' Group number 
* IDENTCUICSV~ MEMBERS, i Member number 
oa ATTR IB_DESC J ' Attributes 
FAOMAC ( RIGHTSLINE 
AME -DEsctL LENGTH) 
NAME ~DESCLPOINTERS, ' Identifier name 
- IDENT, ! Identifier value 
ATTRIB DESC ) ¢ ! Attributes 
STATUS = SFIND_HELD ( HOLDER = HOLDER. ADDR, 
ATTRIB = ATTRIBUTES, 
CONTXT = CONTEXT ) : 
IF NOT .STATUS 
THEN 
BEGIN 
CONTINUE = FALSE 
IF .STATUS EQL SS$_NOSUCHID 
THEN STATUS = SS$_NORMAL ; 
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VOen000 UAFSURITE_RIGHTS = Display rights held by user e-gepetone $S:5%118 LOAF enedaPEnteman oso, age 3H} 


END ; 
END 
WHILE .CONTINUE ; 
SFINISH_RDB ( CONTXT = CONTEXT ) ; 
RETURN .STATUS ; 
1 END ; ! End of UAFSWRITE_RIGHTS 


See Sees tees eeess 

, ae et et et et et et ee 
WN —ODOONOu 
woowowowvowowvowow 
NOUS WI Ow” 


Ww 


»PSECT $PLITS,NOWRT,NOEXE,2 


OF 00121 P.ABE: .BYTE 15 ; : 
$3 41 21 20 46 41 3S 31 21 20 46 41 OM O83 1 aM ae ASCII \I3GAF !15AF !AS\ : ; 
6C 65 68 20 , 72 65 69 66 $9 zs 6f 65 64 49 0013¢ “" TASCIT \Identifiers held by !AS : \ : 

16 0014C P.ABG: .BYTE 22 : ; 
20 20 4¢ 58 21 58 25 20 4 41 32 33 31 20 20 00140 "ASCII \ '32AF &X!XL 'AS\ : 3 

15 00164 P.ABH: .BYTE 21 : : 
4F 21 2C 57 GF 21 SB 20 46 4 32 33 3 20 20 00164 "ASCII \ !32AF C!OW,!OW) 'AS\ : : 

73 65 74 75 62 69 } 74 74 41 00179 P.ABI: .ASCII \Attributes\ : : 
72 65 69 66 69 74 6E€ 65 64 49 00183 P.ABJ: ASCII \Identifier\ : ; 
45 43 52 55 4F 53 45 52 0018D P.ABK: <ASCII \RESOURCE\ : : 

45 463 52 55 4F 53 45 52 4F 4E 00195 P.ABL: -<ASCII \NORESOURCE\ : ; 
65 75 6C 61 56 OO19F P.ABM: -<ASCII \Value\ : : 

RIGHTSHEAD1= P. ABE : 

RIGHTSHEAD2= P. ABF : 

RIGHTSLINE= P-ABG F 

RIGHTSLINEU= P- ABH ; 

, SYSSF IND_HELD 3 

-PSECT SCODES,NOWRT,2 : 

OFFC 00000 ENTRY UAFSURITE RIGHTS, Save R2,R5.R4,R5,RO.R7.~ ; 3220 : 

5B 000000006 00 9€ 00002 MOVAB RABPTR, Ril : ; 

5a 00000000' 00 9E 00009 MOVAB STATUS. R10 : ; 

59 0 06 0 E 9019 MOVAB FAODSC. R9 : : 

38 ' — 0001 MOVAB RIGHTSLINE+1, R8 : : 

5 0 0° 0 9€ O01 MOVAB N : ; 

5E AE 9E 000 MOVAB -104(§P), SP : 3 

7E D4 00029 CLRL  CONTEX : 333) F 

64 AE 0100009 8F DO 000 MOVL  #17694720, ATTRIB_DESC : 3270 : 

AE D4 000 FLRL = ATTR + : ; 

4C AE 01060090 8F DO 000 NOVL = #17694720, NAME_DESC : 3272 F 

AE D4 i CLRL NAME_DESC+ : ; 

4 AE O10EQ00A BF 00 0004 MOVL #17694730, SD_ATTRIBUTES > 3274 ; 

25 C AB F 49 MOVAB P. *“ATTRIBUTES*+4 : ; 

JC AE O10EOOQA BF pO D004 MOVE, #76 47307 SD NAME ; 3275 3 

14 AE 010€00 8 BF 00 0088 MOVL 9176947385 SD_RESOURCE 3276 : 
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18 AE 40 AB 9 6 MOVAB P.ABK URCE+4 ; ; 
o¢ AE O10EO00A = BF : : MOVL #176947 $5-"E 5° NOR ESOURCE : 3277 ; 
160 AE 48 AB : MOVAB PAB. $D-N0 “NRESOUR RCE 4 : : 
04 AE 010009 8F p 7 MOVL #176947 : 3278 : 
08 AE 2 AB 9E 0007 MOVAB P.ABM, SD "va AOEeKe : ; 
3E pb 082 PUSHL § + 3283 ; 
Fe OA? OOF 00 PUSHAB ATTRIBUTES : : 
on ac BB boas BuStt  ROLDER_A : 
000000006 00 g4 FB 000 ¢ CALLS #4, SYSSF IND _HELD ; F 
6A 0 D0 009 MOVL STA Tus : ; 
18 6A E 0096 BLBS STATUS, + 3284 : 
E DD 0009 PUSHL SP : 3287 : 
000000006 00 07 FB 0009B CALLS #1, SYSSFINISH_RDB : : 
OOOO2Z1EC BF 6A D1 D0A2 CMPL STATUS, #8684 ~ : 3288 : 
03 12 OOOA BNEQ ='1$ : : 
6A 01 p60 OO0AB MOVI. #1, STATUS : 3289 : 
01A9 31 OOOAE 1$: BRb 13§ : 3290 ; 
50 AE 2c = AE «9E 00081 2S: MOVAB NAME -BUEE. NAME _DESC+4 : 3299 ; 
4c OA 20 BO 000B6 MOVW #32,~ E : 3300 : 
4C AE 20 6E a 00 2C 000BA MOVCS #0, (Spo “#32, NAME_DESC, @NAME_DESC+4 : 3301 ; 
7E 7C 000C2 CLRQ = =(SP) + 3304 : 
7E D4 0004 RL =(SP) : : 
58 AE OF 00066 PUSHAB NAME_DESC : ; 
5c =O AE. sO «00009 PUSHAB NAME~DE C : : 
04 BC dD 000CC PUSHL SHOLDER A : : 
000000006 00 06 FB OOOCF CALLS LEE SSIDTOASC : : 
6A 0 pO 00006 MOVL US : ; 
39 FO A? €E9 00009 BLBC a: AEADER FLAG, ot : 3308 : 
69 D4 AB 9B 000DD MOVZBW RIGATSHEADT, FAODSC : 3314 : 
04 Ag DS A& 9E 000E1 MOVAB RIGHTSHEADIS1 Me apsces : : 
24 AE 9F OO0E6 PUSHAB SD_ATTRIBUTES : : 
OC AE bp 000E9 PUSHL SD"VALUE+4 : ; 
7E OC AE 3C OOOEC MOVZWL SD-VALUE, -(SP) : ; 
2 AE DD S00FO PUSHL SD"NAME+4 : : 
7E 3¢ AE 3C OOOF MOVZWL SD NAME. -(SP) : : 
000000006 00 9F 000F7 PUSHAB ISDS : ; 
7E 68 22 C1 OOOFD ADDL3 #34, RABPTR. -(SP) : : 
59 DD 00101 PUSHL R : : 
000000006 00 08 FB 0105 CALLS #8, SYSS$FAO : : 
6B DD OO10A PUSHL RABP PIR : : 
000000006 00 01 FB 010¢ CALLS YSS$PU F : 
FO A? 94 ogi CLRB 4 READER. FLAG ; 3315 : 
OF 9900000 G6 00 Es 0116 3$: BLBS  STRTWILD, &$ : 331 : 
9 90000006 0 € 90110 BLBS MEM” WILD. 4$ : : 
8 000000006 00 E9 0124 BLBC GRP WILD, 5$ : : 
69 E4 As B 00128 4$: MOVZBW RIGATSHEAD2, FAODSC : 3318 ; 
04 Ag E5 AB 9E OO12F MOVAB RIGHTSHEAD $1, FAODSC+4 : F 
4C AE 9F 001 PUSHAB NAME_DESC ; : 
000000006 9F 00137 PUSHAB DISD C ; ; 
7E 6B 2 C1 0013D ADDL3 #34, RABPTR, -(SP) : : 
9 DD 00141 PUSHL : : 
000000006 00 04 FB 00143 CALLS #4, SYSSFAO : ; 
6B DD OO14A PUSHL RABPTR ; : 
000000006 00 or FB O14¢ CALLS #1, SYS$PUT : : 
6 1 90 00153 5$: MOVB #1. CONTINUE > 3325 : 


ey ' eel 
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50 AE 2c OA 9 156 6$: MOVAB NAME_BUFF, NAME_DESC+4 : 333 ; 
4C OAL : ; 158 MOVW #32, NAME DESC : 333 ; 
4c AE 20 6E =o ¢ 13 MOVCS #0, (SP),"#32, NAME_DESC, @NAME_DESC+4 + 3334 ; 
—E 7¢ 189 CLRQ 2s = (SP) + 3337 ; 
7E 04 00169 LRL ss = (SP) : ; 
58 AE «OOF 00168 PUSHAB NAME_DESC : ; 
5C AE oF 16e PUSHAB NAME-DESC : ; 
DD 001 PUSHL IDENT : ; 
000000006 00 6 FB 173 CALLS as, SYSSIDTOASC : : 
6A p 17A MOVL. RO, STATUS : : 
OF 20 6E is 00 C 120 MOVCS #0, (SP), #32, #15, ATTRIB_BUFF + 3342 ; 
64 AE 84 001 CLRW ATTRIB_DESC > 3343 F 
68 AF 54 AE 9E 4 7 MOVAB ATTRIB-BUFF, ATTRIB_DESC+4 + 3344 : 
5 64 AE O3C 18¢ MOVZWL ATTRIB-DESC. RO : 3349 : 
51 54 C«<“k 3 001 AB ATTRIB-BUFF, R1 : ; 
11 mas 0194 ATTRIBOTES, 7$ + 3345 ; 
6140 18 BE 16 AE 28 00198 MOVC3 SD_RESOURCE, @SD_RESOURCE+4, (R1)CROJ + 3349 : 
50 64 AE 3C 0019F MOVZ2WL ATTRIB DESC, RO : 3351 : 
51 14 AE 3¢ O1A3 MOV ZWL D_RESOURCE, R1 ; : 
6140 10 BE 0c AE 28 Soi 7$: MOVC3 SD_NORESOURCE, @SD_NORESOURCE+4, (R1)CRO] : 3356 ; 
50 64 AE 3C 90180 MOVZ2WL ATTRIB DESC, R : 3358 ; 
51 OC AE 3C 00184 MOVZWL SD_NORESOURCE, R1 : ; 
50 51 CO 00188 8$: ADDL ¢ R1; : ; 
64 AE 50 01 Al 00188 ADDWS #1, RO, ATTRIB_DESC : ; 
51 FF AB 9A 001C0 MOVZBL RIGHTSLINE, R1 : 3371 : 
69 51 BO 001C4 MOVW RT : ; 
50 6B 22 C1 001C7 ADDL3 #34, RABPTR, RO : : 
CO oF 03 A? 93 001¢B BITB JDENTS, #192 : 3364 : 
2A 12 00100 BNEQ $ : ; 
04 ad 68 9E 00102 MOVAB  RIGHTSLINE+1, FAODSC+4 : 3371 ; 
64 AE 9F 00106 PUSHAB ATTRIB_DESC ; : 
7E 67 3C 00109 MOVZWL IDENT, ~-(SP) : 3 
7E 02 A? OE 00 EF 001D¢ XTZ2V. #0, #14, IDENT+2, -(SP) : : 
5c AE bp OO1Ee PUSHL NAME_DESC+4 ; ; 
7E 5¢ AE C 0 1E MOVZWL NAME-DESC, -(SP) : : 
000000006 00 9F 001E9 PUSHAB DISDSC F ; 
50 OD OO1EF PUSHL : : 
59 DD OO1F1 PUSHL R9 : : 
000000006 00 08 FB 001F3 CALLS #8, SYSSFAO : : 
21. +11 OO1FA BRB : : 
04 Ad 55 3 1FC 9$: MOVAB  RIGHTSLINE+1, FAODSC+4 : 3377 : 
64 ag F PUSHAB ATTRIB_DESC ; 3 
67 DD 0020 PUSHL IDENT : : 
58 AE DD PUSHL NAME_DESC+4 : : 
7E 58 AE C MOVZWL NAME-DESC, -(SP) : : 
000000006 F O¢ PUSHAB DISDSC : : 
0 DD 0021 PUSHL R ; : 
9 DD 00214 PUSHL RY ; : 
000000006 00 7 FB 00216 CALLS #7, SYSSFAO : : 
6B DD 0021D 10$: PUSHL P ; 3 
000000006 00 gt FB OOCTF CALLS #1, SYS$PUT : : 
; pp 6 PUSHL : 3382 3 
F4 OA? OOF PUSHAB ATTRIBUTES ; : 
57 DD B PUSHL 7 : : 
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06 aC DD PUSHL HOLDER_ADDR ; 
000000006 00 ae " CALLS #4, SYSSFIND_ HELD : 
A 0 D MOVL RO, : 
22 ne AB 
QOO02Z1EC BF g p] if cHPL tp #8684 : 3387 
6A 0 06 28 MOVL #1, STATUS : 3388 
03 ‘ 5 48 11$:  BLBC CONTINUE, 12$ + 3391 
FFOS 31 O024E BRW 6$ : 
5E DD 00251 12$:  PUSHL SP : 3393 
000000006 90 07 F 0 3 CALLS #1 SYS$FINISH_RDB : 
6A D A 13$:  MOVL STATUS, R + 3395 
04 0025p RET : 3397 


; Routine Size: 606 bytes, Routine Base: S$CODES + 196A 


; 3424 3398 1 : 
: 3425 $296 1 END ! End of module ; 
: 3426 400 0 ELUDOM : 
: PSECT SUMMARY 3 
; Name Bytes Attributes 3 
: $GLOBAL$ 30 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) ; 
; SOWNS 436 NOVEC, WRT. RD .NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) : 
: $PLITS 7439 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN() : 
: $SCODES 7112 NOVEC.NOWRT. RD. EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(Q) 
$ Library Statistics ; 
Bes SG. ge bey al Nidan to ee OMe Symbols -------- Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
; ~$25280UA28: SYSLIB Bil L1B.L32;1 18619 93 : 1000 00:02.9 ; 
+ 7$255$pDUA28:(SYSLIBJTPAMAC.L32;1 42 0 14 0:00. 3 
; COMMAND QUALIFIERS ; 


; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RIGHTSMAN/OBJ=OBJ$:RIGHTSMAN MSRC$:RIGHTSMAN/UPDATE=(ENH$:RIGHTSMAN) 
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Size: 711 + 87 
lime: 6 c ge, 876 data bytes 
Ti 4.6 


Run 1: 
Elapsed 9b 1: 
Lines/CPU Min: 1 H 
Lexemes/CPU-Min: 21 
ponety Used: 324 pages 
Compilation Complete 


rere 
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